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When it comes to fantasy games, the ADVANCED 
DUNGEONS & DRAGONS: system is the real stuff. In 
fact, AD&D* designed fantasy role-playing gaming as 
we know it today! 

Only AD&D games provide the incredible richness 
~~ of detail that makes vast and mysterious worlds come 
~~~ saiive, filled with characters, monsters, weapons, spells 

_ ~~ and encounters of incredible diversity and depth. 

Ne Now SSI uses this legendary system to take fantasy 
Hesioanos gaming one step beyond: A line of AD&D computer 
Darin games set in the immense world known as the 
pkeapitnon spree Forgotten Realms. . 
| Every game in this Si 

exciting series iron 
can be enjoyed by itself. However, the beauty 
of SSI’s Foraorren REALMS” epics is that they 
are intricately. woven together. The more you 
play, the more you'll discover the glorious 
wonders of this mystical domain. 


mata Cry dade 
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Poo. orf Rapiance: the first and now 
MANDAN SHT € | classic AD&D computer role-playin 
* el idl Aap toes oh tat ‘ Rg 1 h i p y q 
lal yl Beret posstt ih Be “wy ogame. In the fabled ruins of Phlan and 
ieaiaal a Jat Rs oe m | i <==2 4) around the northern shore of the Moon- 
er" eee ee. RES. Vion, GEC. Ste A= sea, your band of six Player Characters 
Gay, eo fight an unending wave of monsters 


and strive to unmask their mysterious leader. 


fittsrar: An action-adventure game that 
is a crucial stopping point in your travels. 
Hillsfar serves as the training grounds for all 
your heroes. Transfer your characters from 
Pool of Radiance or Curse of the Azure 
Bonds and increase their skills through 
vigorous workouts that include combat, 
maze-running, lock-picking, archery and 
horseback riding. Succeed in Hillsfar and 
some of your characters’ statistics will 
actually improve. They will emerge 
from Hillsfar more prepared than ever 
to survive your dangerous journey. 


ote eee 


CURSE OF THE AZURE Bonps: the sequel to 
Pool of Radiance, with deadlier monsters, 
more powerful spells and new Player- 
Character types. In this qame, you find your 

characters’ arms mysteriously imprinted 
with azure blue symbols. When they glow, 
they ensnare your will — you must do as 
they command! Search the realms for 
members of the New Alliance who 
forged these chains of enslavement and 
remove the Curse of the Azure Bonds. 


Bole) a ce)may Blea) games from SSI at your 
favorite retailer. A wondrous universe awaits you. 


TO ORDER: Visit your retailer or call 1-800-245-4525 to charge on 
VISA/MC. To receive SSI’s complete product catalog, send $1.00 to: 
SSI, 1046 N. Rengstorff Ave., Mountain View, CA 94043. 


ee 






tan | 


| 








Features 

Make It Sing!: Speakers, Stereo, and 
MIDI Solutions 

Art HUiitiGs ints. a asiakallocentteree ketene 12 

East Meets West: Hindu Music from 
Texas—64 Style 


TOM INGUSOD V6 ween pieteterozereys,ew)s 14 
Online: Island of Fantasy 
Charl Pelerson: heres tstintererern cavers 19 


Reviews 
Spectrum 128 
Nell Randall ...ccccs revere evens 22 
Jack Nicklaus’ Greatest 18 Holes 

of Major Championship Golf 
David Hensley, ie ac ccc eects «0 ats 23 
Double Dare and Hollywood Squares 
David and Robin Minnick ......... 
Powerplay Hockey: USA vs. USSR 
EFVIN BODO) pcsrctitsccclictewr see record 25 
Calculator 128 
Probert: BIxOV ticetaveis:s since eiecen Hectrey Weo 


Games 


Mine Sweeper 


Ben Campbell ...... Seth Ate es Pas 
Monster Bar-B-Q 

GuleniO Daa ene cite aaniareteneeee “haze 
Math Magic 

Michael KaGyn) cociiy vicviacs eee cete eae 29 


Programming 


CHR$ Graphics 


Hubert Grose isretaceteala im ateresesctash orks 30 
Financial Planner 

Wi ert GIN oie tecscrcet cra aiererd erecetalanins 39 
1581 Directory Sorter 

Robert Czeisel ..........55:. Sd ae 
SFX Machine 

Larry GolOn Ser coor eee weds 50 


COMPUTE!'s Gazette (ISSN 0737-3716) is published monthly by COMPUTE! 
part of Capital Cities /ABC, Inc., B25 Seventh Ave., New York, NY 10019. © 


Ave., Greensboro, NC 27408. Domestic 
postage paid at Aa York, NY and additional ne offices, 


64 
128/64 


64 
128 


128 


64 
64 
128/64 
64 


subscriptions: 12 sues. $24, 


July 1989 Vol. 7, No. 7 


sae 


The Programmer’s Page: 
64 Tips and 1571 ROMs 


Randy Thompson .........+..++. 51 = 
BASIC for Beginners: 

Musical POKEs 
LarrviGGUlOns: 5 .c)s:a-. sus wialere seis cleisie)s 52 64 


Machine Language Programming: 
Simple ML Music 
VIBUTORIIGIG: vrcctaien cece oct ce sass 54 64 


Departments 


The Editor’s Notes 
Pence) ElWOt iota ticetarscnircehachiecsiectieee 4 * 
Letters to the Editor ............. 615% 
Commodore Clips: News, Notes, and 

New Products 
Mickey McLean .......2+-++20+00% 5: * 
The GEOS Column: File Retriever 


OMIT ESTHOWGIG.. colsiers oie c7e co e hi genes 56 128/64 
Feedback 
Editors and Readers ............. 5875 
Horizons: The Newsletter Awards 
Randy THOMPSON .... eee eens » 162: 
D'lversions: Where Have All the 

Robots Gone? 
Fred D'ignaZio . 2... 66. e ee eens 63 * 
User Group Update 
Mickey McLean ....... 06.50 e ues . 64 * 
Program Listings 
MLX: Machine Language Entry 

Program for Commodore 64 .... 65 64 
The Automatic Proofreader ...... 70 128/64/+4/16 
How to Type In COMPUTE!’s 

Gazette Programs ............ 92 * 
Advertisers Index ............. . 69 





64 Commodore 64, +4 Plus/4, 16 Commodore 16, 
128 Commodore 128.* General 


Cover photo by Mark Wagoner © 1989. Musical instruments 
courtesy of Moore Music, Greensboro, NC. 


Pubicatons, Inc., ABC Consumer Magaznes. no. Ine Chilton Company, one of the ABC Publishing Companies. a 
Consumer Ma 


Editonal offices are located at Suite 200, 324 West 


arene reserved. 
POSTMASTER: Sond Form 9579 9 COMPUTE s Gazette, P.O. Box 3255. Harlan, 1A 51537. Second-class 








NEWE 


Includes: 
@ Geowritae Workshop 128 
@ Geospell 128 
® Many dramatic improvements 
@ Both 80 and 40 column modes 
@ Much, much more 
} 68956 $CALL 
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#100 disk 6 1/2") MEST 
@ Lock and keys for extra security and easy 





carrying. 
@ Includes 8 index dividers for organization of 
filing and retrievel. 
@ Made of durable anti-static, high impact 
plastic. 
@ Attractive smoke colored lid. 
Sug. Retail $19,95 
66826 $9.95 
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Commodore 64C 


The complete computer for home, school and small bus|- 
| hess. Supported by high-quality peripherals and over 10,000 
| softwareprograms. Fulltypewriter-style keyboard, 64K RAM, 
eight sprites, three voices. 


64C Computer 54574 $120.05 
Commodore Hardware 

Commodore 128D 71133 «=—§§-450.95 
1670 Modem, 1200 Baud 36952 $69.05 
1351 Mouse C64/C128 37885 $32.95 
1802C Composite Monitor 54595 §CALL 
1581 3.5" Disk Drive 74023 $179.95 
1541 Il Disk Drive 54586 $184.95 
1764 RAM Expansion C64 72513 $114.0 


P.O. Box 6: 


South Bend, IN 46660 


i (219) 259-7051 





ORDER TODAY CALL 1-800-348-2778 


Uf j We gladly accept mall LLG 
TENEX Computer Express) 


The Bes 


GEOS 1282.0 Prices & Service 











AMIGA 500 


The 500 Includes 512K bytes internally and is expandable to 
8 MB, two joystick ports, a serial port, a parallel port, an 
external disk drive port, and a bullt-In 3,.5* disk drive. it even 
Includes a 2-button mousel 

Amiga 500 73729 


AMIGA 2000 


The 2000 has muttitasking abilities, sprites, a graphic co- 
processor and built-in speech, With keyboard, mouse, 
joystick, AS232 and Centronics ports, the 2000 Is a powerlul 
computer. It has a built-in 3.5* disk drive, mounting locations 
for two external Amiga floppy disk drives and has an internal 
option for IBM PC/XT compatibility. Standard RAM Is a full 
MB and |s expandable to 9 MB, 


$CALL 


Amiga 2000 77617) = =§C ALL 
. 

AMIGA Accessories 

10845 Color Stereo Monitor 74095 §$CALL 
3.5 Extornal Diek Drive 74087 CALL 
Internal 3.5" Disk Drive BOOB CALL 
512K Expansion 79268 CALL 
2MG Expansion 79279 © CALL 
Bridgecard W/5.25 79249 CALL 
Hard Drive Control T9222 CALL 
1200 Baud Modem 79237 CALL 
RF Modulator 79283 CALL 
NLQ, Dot Matrix Printer 79294 CALL 


PRICES TOO LOW TO ADVERTISE! 





cy VISA 
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Wo Verity args Card Addresses 


No Extra Fee For Charges! 









FREE 


56 Page 
“Everything Book" 
With Any Order 


STAR NX1000 


NX-1000 Speedy 144cps draft mode, 36cps near-letter- 
quality. Features include front panel controls and multiple 
NLQ fonts. Friction and tractor feed, plus convenient single 
shel feed moda, 





NX-1000 Printer Parallel ) 74827 = 6$§164,05 
NX-1000C Printer ( Commodore ) 75060 $169.95 
NX-1000 Rainbow Color Printer 75077 $224.05 
NX-1000C Ralnbow (Commodore) 75783 $224.95 





224 





OKIDATA 180 


Features include mode selaction, pitch selection, 180 cps In 
high speed draft moda and 120cps In utility mode, Near- 
letter-quality text prints al 30cps. Includes both friction faed 
and {xed tractor for standard width perforated edge. Both 
Commodore and standard parallel input, 
Okidata 180 Printer 


7iG3H =§$224,95 


$1895 
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Panasonic 
KX-P1180 


Select over 11 functions onfront panel. Four NLQ fonts and 
two draft fonts, each sized 5 to 20 char-in. Proportional 
spacing. Graphics 240x216dpi, Draft at 192 cps, NLQ at 
38cps. Push or pull tractor feed. Two year warranty. 
Panasonic KX-P1160 82779 $189.95 | 


/. Shipping, Hanetings insurance Wh 
‘Order Amount 7 ohare My; 
jess than $19.99 .. LU LLY) ILENE + $3.75 Wey 


De ay 


$75.00-$149.99 EAA 
$150,00-$299.99 , Coed) rere prries ETE ETE Liie ite 75 Pape uf 
///$900.00 UP sts, sy 75 Wh 


(Pin Hea anes ree ties tee 





COMMODORE 64 and COMMODORE 128 are registered tradamarks of Commodore Electroniog: Ltd. AMIGA is a registered tradamark of Commodore Amiga Inc., APO, FPO, AK, HI, CN, 
VI, GU, and foreign orders are subject to additional shipping charges. NOTE: Due to publishing lead-timas, product pricas and specifications ara subject ta ch ange without notice, (5B 






















= 
———= 
— — a! 
—— 
a 


ea A 
Mt HON 






| | his issue marks the sixth anniversary of Gazette. If you're a longtime reader, 

4. you have a good sense of the topsy-turvy history of both the Commodore 

market and the general personal computer market. The past six years have been a 

virtual roller-coaster ride. Back in the spring of 1983, when we debuted Gazette, the 

Commodore 64 was the hottest machine going. Anyone who wrote anything in 

BASIC was suddenly a software vendor—and many unexceptional products did 
very well because of the great demand. 

Software sales went berserk until the great shakeout in 1984. The software 
publishers who survived the shakeout took the quality of software up several pla- 
teaus, Also in 1984, Commodore introduced the ill-fated Commodore Plus /4, 
which some say was the intended legacy of the freshly departed and embittered 
Commodore CEO, Jack Tramiel. 

The Plus/4 and 16 weren't the only hardware flops in 1984-1985. Remember 
the Coleco Adam, the TI-99, and the IBM PCjr? One machine rose, however, from 
the heap: the Commodore 128. Like its younger cousin, the 64, it showed contin- 
ued growth into 1987. 

Despite rumors of the 64's demise in 1986 and 1987, it continued to sell well. 
During these years, in fact, Commodore several times stopped production of the 64 
and then restarted it because of demand. 

The popularity of the 64 and 128 finally tapered off beginning in 1987. In one 
sense, both machines are still strong—who can argue with such a huge installed 
base?—but they’ve been hurt in recent years by a number of surprising competi- 
tors. Who could have predicted the huge swell in sales of MS-DOS machines or the 
tidal-wave surge of Nintendo? The newer technologies and allure of Apple’s Mac- 
intosh and Commodore’s own Amiga also provided appealing alternatives to the 
user and programmer. 

The 64 and 128 have been solid and surprising contenders in the personal 
computer market despite all that’s worked against their continued success—and 
despite Commodore. To trace the history of leadership at Commodore is a quick 
study of the workings of the revolving door. If you've been with us for a while, you 
might remember the names of many departed Commodore execs which have ap- 
peared in these pages: Jack Tramiel, Marshall Smith, Thomas Rattigan, and Nigel 
Shepherd, to name a few. We learned in early April that Rich McIntyre, a key Com- 
modore figure (interviewed in a 1988 Gazette) had departed. And then, in late 
April, we were very much surprised to hear that Max Toy, Commodore's president 
and chief operating officer of U.S, operations, had resigned (we had spoken with 
Toy at the Spring COMDEX Commodore booth less than two weeks before his res- 
ignation). Toy had come to Commodore 18 months earlier with high hopes and 
great expectations on the part of CEO Irving Gould. Gould wasted no time in nam- 
ing a replacement, Harold Copperman replaced Toy on April 24, the day of Toy’s 
_ official resignation. Copperman, 42, is the former vice president and general man- 
ager of Eastern Operations for Apple Computer. Prior to that, he served for 20 
years with IBM, 

The U.S. market, unlike that of Europe, has been stagnant for Commodore, 
and it’s a good guess that Gould’s patience was wearing thin. So what will be ex- 
pected of Copperman? Mehdi Ali, president of Commodore International, stated, 
‘We want to make further forays into education and business,’’ which says to us 
that Commodore wants the Amiga to be taken seriously in the schools and in the 
office. The 64 and 128 are not focal points in Commodore's plans. 

In the past six years, Commodore, like the entire personal computer industry, 
has been unpredictable and erratic. Nevertheless, there’s always been excite- 
ment—and a lot of surprises. There’s never a dull moment. 

Whatever Commodore's plans, be assured that Gazette will continue to enthu- 
siastically support the 64 and 128. 





Lance Elko 
Senior Editor 
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Editoral inquines shoud be addressed to The Edtor, COMPUTE's 
Garvette. Sutte 200. 324 West Wendover Ave, Greensboro, NC 27408 


PAINTED IN THE USA 


Send questions or comments to Letters 
to the Editor, COMPUTE!’s Gazette, 
P.O. Box 5406, Greensboro, North 
Carolina 27403, We reserve the right 
to edit letters for clarity and length. 


Mystery Solved 

In response to “Missing in Canada” 
(May), I have an answer. Traitex 64/128 
is now published by Logibec Groupe 
Informatique, who markets the product 
under a different corporate name, Logi- 
ciel Tanda. The address is 


Logiciel Tanda 
1, Place du Commerce 
Bureau 410 
Ile des Soeurs 
Quebec, Canada H3E 1A2 
Gilles Bernier 
Gatineau, Quebec 


A special thanks for your detective work, 
Gilles. 


Marauding by Mail 


Members of our user group have re- 
ported that they have written to several 
user groups (listed by you and by other 
magazines) that appeared to be general 
groups serving more than a local area. 
In many cases, they found that some of 
these “user groups” are an individual 
who is in the business of selling soft- 
ware, often pirated, Other groups 
turned out to be devoted to trading soft- 
ware, much of it pirated. You might 
want to address this by including some 
kind of statement in your ‘User Group 
Update” column. 


Jean Nance, President 
Meeting 64/128 Users Through the Mail 
St. Joseph, IL 


Thanks, Jean. We'll include such a state- 
ment in “User Group Update” beginning 
with this issue. COMPUTE! strongly op- 
poses software piracy in any form. 


Don't Hammer That 64 


I'd like to tell Bill Fullman (‘‘Hammer- 
ing the 64 to Death,” April) that if he 
cannot get any satisfaction from a 64 
that he won’t get any from any other 
computer. If Bill buys another machine, 
like an Apple IIcs, he'll probably send 
the same kind of letter he sent you to an 
Apple magazine. 
Andy Orthmann 
La Center, WA 


In response to Bill Fullman’s letter, I'd 
like to say think twice before hammer- 
ing your 64. You have a computer that’s 
almost a legend in the computer busi- 
ness. It’s survived since 1982. 


Diego Zamboni 
Baja California Sur, Mexico 


I suggest that Bill Fullman read his 
owner's manual. He'll find that there’s 
a switch in back of the 1525 printer 
marked T,4,5. The T is for test patterns, 
and if the switch is set there, that’s all 
he'll get. He should set his switch to 4. 
Also, if he wants to smash his 64 and 
printer, fine—but it would make more 
sense to sell it and use the money to 
buy a new computer. 


Dan Hunter 
Rohnert Park, CA 


Advice on Printers 


Thanks for the info on printers (‘The 
Care and Feeding of Dot-Matrix Print- 
ers,’’ May). The article recommends the 
use of WD-40 on printhead guides. I’ve 
found that WD-40 causes a gummy- 
substance buildup. I'd recommend a sil- 
icone product. Also; A pox on printer- 
ribbon manufacturers who do not 
identify the ribbon by number on the 
plastic case. After you've thrown the 
box away, you no longer have an iden- 
tification number. 


William Bernheim 
Oroville, CA 


Although “The Care and Feeding of 
Dot-Matrix Printers” article is informa- 
tive, some points are not necessarily 
true for all printer models. For instance, 
the statement “Apply a little light oil 
occasionally to the printhead guides . . .” 
is not entirely true. Some printer manu- 
facturers do not recommend using any 
kind of lubrication on their printers. On 
most printers, the printhead is mounted 
to a carriage assembly which rides on a 
carriage stay. Usually the carriage as- 
sembly contains oilite bearings that do 
not require any lubricant. In fact, lubri- 
cating the carriage stay could damage 
the bearings. If the bearings do require 
lubrication, then a commercial lubri- 
cant such as Tri-Flo is recommended. 
Unlike WD-40 or sewing machine oil, 
this lubricant is teflon based and does 
not have a tendency to attract dirt or 
dust particles. 





Cleaning the platen with alcohol is 
not a good idea because not all platens 
are manufactured from the same sub- 
stances—alcohol could damage the 
platen. Platen cleaner is recommended 
and can be purchased from most office- 
supply and/or computer stores. 

In addition to the label information 
given, the labels should be of good 
quality, preferably adhesive labels with 
rounded corners. Labels of this quality 
have less of a tendency to catch on any 
printer parts. 

Robert L. Loar 
Mission Viejo, CA 
Robert Loar is a printer technician. We al- 


ways appreciate and welcome this kind of 
feedback from readers, 


Programming Pros and Cons 
I'm starting to learn programming on 
the 64 and would like some advice. 
What are the pros and cons of program- 
ming a 64? If this is not a good computer 
to learn programming on, what is? 
Chris Olvera 
APO, NY 


You'd no doubt get a variety of opinions if 
you asked a variety of programmers. One 
opinion is that the 64 is an excellent ma- 
chine for programmers because its design 
includes a built-in BASIC and a good 
screen editor—and it permits various lev- 
els of control over graphics and sound. 
Another point in its favor: There are many 
excellent books and programming tools 
available for the 64. Gazette teaches pro- 
gramming on a regular basis in “BASIC 
for Beginners" and “Machine Language 
Programming.” Millions of people have 
learned to program—and program well— 
on the 64, 

Another opinion is that the 64 forces 
you to work with a limited—but arguably 
adequate—BASIC language, a slow disk 
drive, memory constraints, and a relatively 
slow microprocessor. The hardware limi- 
tations make it difficult to program in any 
structured language, such as Pascal, C, or 
even BASIC. 

If you're going to learn to program in 
machine language, the 64 is a great choice 
because of the control afforded by its cus- 
tom sound and graphics chips. If you want 
to stick with BASIC, consider a 128; its 
BASIC 7.0 is excellent—far superior to the 
BASIC 2,0 of the 64. G 
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Consumer Software Sales by Format, 1984-88 
$250 


Retail Sales (in millions) 


Software Sales Up 


Consumer Software sales were up 26 
percent in 1988 as compared to 1987 
according to the Software Publishers 
Association, a principal trade group 
made up of over 440 members who 
represent publishers in the consumer, 
education, business, and vertical mar- 
kets of the software industry. 

The compiled data, which was 
provided to an accounting firm from 
approximately 40 consumer software 
firms, accounted for over $465 million 
in 1988 domestic retail sales, The term 
consumer software refers to personal 
computer programs used primarily by 
individuals in a home environment 
and includes computer games, person- 
al graphics and financial programs, 
and home educational titles, 

The SPA reports that recreation 
software sales, which comprised 57 
percent of overall consumer software 
sales in 1988, has been dominated by 
the MS-DOS format in the past two 
years, taking the place of the former 
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number 1 selling format, the Commo- 


dore 64/128. The SPA attributes this 


newfound dominance to the increasing 
popularity of the IBM PC and compa- 
tibles in the home and the growing 
availability of high-quality MS-DOS 
recreation software with enhanced 
graphics and sound capabilities. 

According to the SPA, approxi- 
mately 44 percent of total consumer 
software sales is attributed to MS- 
DOS software, 26 percent to Apple II, 
16 percent to Commodore 64 and 
128, 7 percent to Macintosh, and 6 
percent to other computer formats, in- 
cluding the Amiga and Atari ST. 

The SPA first began to monitor 
domestic retail software sales in 1984 
and has since determined that the in- 
dustry has grown approximately 177 
percent with an average yearly 
growth of 31 percent. During this 
same period, the SPA has estimated 
that MS-DOS consumer software sales 
have increased 1214 percent—from 
approximately $15 million in 1984 to 
$203 million in 1988, 
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Word Processing 
for 128—CP/M 


The Public Domain Software Copying 
Company (33 Gold Street, Suite L-3, 

New York, New York 10038) now of- 

fers WordStar version 2.26 ($39.95) for 
Commodore 128 CP/M users. 

This version includes MailMerge, 
which allows users to merge text and/ 
or data files to generate form letters, 
boilerplate text, mailing lists, and 
large documents. The version comes 
complete with an Osborne 1 User's 
Reference Guide, which explains how 
to use WordStar and includes sections 
on the CP/M operating system. The 
guide also describes how to use other 
programs available from PDSC, in- 
cluding SuperCalc and Microsoft 
BASIC. The package also contains a 
set of Key Fronts, self-adhesive letters 
that attach to your keyboard and in- 
clude all the commands needed to use 
the special word processing functions 
of WordStar. 


Freebies 


Buy two Cinemaware games and re- 
ceive a third game free. Purchase 
choices include Cinemaware titles such 
as Rocket Ranger and The Three Stooges, 
Spotlight titles including Total Eclipse 
and Speedball, and any other titles that 
were released through June 1989. 

In order to receive the free soft- 
ware, you must send in the original 
dated sales receipts from your two 
purchases, the completed registration 
cards, a coupon found in specially 
marked packages and available from 
many software retailers, and $3 for 
shipping and handling. You can 
choose either Defender of the Crown or 
Sinbad and the Throne of the Falcon as 
your free game. 

The “Buy Two, Get One Free!” 
offer is available only through Cin- 
emaware (4165 Thousand Oaks Boule- 
vard, Westlake Village, California 


91362) and is good while supplies last. 
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ACTION REPLAY v5.0 





THE ULTIMATE UTILITY / BACKUP CARTRIDGE FOR THE C64/128 






MCE CARR IR MC muCRicumm-ua WARP 25 
Tee mides Molec s eo Bele aa The world’s fastest disk 


serial Turbo. A typical backup will reload in under 5 seconds 


up to disk = felute| that: is=nioln (1]) “coo 4A) agree these & No special formats — with achon repay you s mply save Girecty into Warp 25 Status 
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programs 


super powerful program compactor. Reduce 
programs by up to 50%! Further compact pro- pf eml | ae me scream 
grams already cruched by ARS's compactor. ti - é eee | 7mm = Programs 


* Backup all your exst 


Samme Operahon 


Tunes 


* Unstoppable Reset 


ng programs to load al unbebevate speed 
Warp Save'Load Available straight from Basic 


RAMLOADER 


+ ‘You can also load load most of your commercial originals 25 times faster! With our special LSI logic Be 
processor and BK of onboard Ram, Action Replay offers the world’s fastest Disk Serial Turbo 


UNIQUE CODE CRACKER MONITOR 


* Freeze any program and enter a full machine code monitor 
* Full Monitor Fea 
- Because of Action Replay's on Board Ram the program can be looked al in its ENTIRETY, That sms 

means you see the coda in its Frozen state not in a Reset state as with competitors products 


MORE UNIQUE FEATURES 


Just press the bution al any poinl and make a complete back-up of any” 
memory-Tesident program fo fape of Cesk. 

* Turbo Reload: All back-ups reload completely independent of the carindge at Turbo speed (ee 

+ Sprite Monitor: View the Sprite set from the frozen program — save the Sprite— transfer the Sprite ‘suse, 
from ona game to another, Wipe out Sprites, view the animation on screen. Create custom ee ; 


+ Sorite Killer: Effective on most programs — make yoursel! invincible, Deable Sprita/Sprite/Back- 
ground commons = 

+ Unique Picture Save: Freeze and save any Hires Screen to tape or disk. Saved in Koala, Blazing faye 
paddies format eo 

+ Compactor: Effiaent compacting techniques — 3 programs per disk — 6 if you use both sides. 

: Single File: All programs saved as a single file for maximum compatibility. 

* Utility Commands: Many additional commands: Autonum, Append, Old, Delete, Linesaver, etc. 

* Screen Dump: Print out any screen in 16 Gray Scales, Double size print options. 

: Reset button to Retrieve System and Reset even so called Unstoppabe 


‘ Fully Compatible: Works with 1541/C/1l, 1581, 1571 and with C64, 128, or 1280 (in 64 Mode) 


GRAPHICS SUPPORT DISK - ' @ ry Z | 4, Ss : “© Disk Utilities: Fast Format, Directory, List, Run and many other key commands are operated by 


fa ee eS se, Funchon Keys 


~ ONLY $19.99 ae 


* Unique Restart; Remember all of these utilities are available at one time from an intergrated 


To take advantage o!f ARS's unique power, we a7 toes CE operating system. A running program can be Frozen to enter any Utility and the program is 
have prepared a suite of graphic support facilities. : B Het ares restarted at the touch of a key — without corruption. 
SCREEN VIEWER: View screens in a ‘slide : i zi ‘eMeeyast: * LSI Logic Processor: This is where Acton Replay V gets its power. A special custom LSI chp 
show’ sequence. - _ Z ial desagned to process the logic necessary for this unmatched Freeze/Aestan power. No other 
MESSAGE MAKER: Add scrolling messages a ". __ ¢artridge has this power! 


to your saved screens with music, 


PROSPRITE: A ull sprite editor, | [ att Bei ne as UPGRADE ROM — ONLY $16.99 


screen to ful size 
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MON-SAT 8AM — 5PM (PST) 


DEEP SCAN BURST NIBBLER - Only $39.99 Complete 


« The most powerful disk nibbler available anywhere at any price! 
- Burst Nibbler ls actually o two-part system — a software package and a parallel cable to connect the 1541/1571 to 
64/128 (state type). | | 
What gives Burs? Nidbter Its power? Conventional nibblers have to decode the data from the disk before it can 


transfer It using the serial port bus — when non-standard cata are encountered they ore beat, Burs! Nibbler transfers | 


_ data as raw GCR code via the poraiiel cable without the need to decode it, a2,7ou Det c perfect copy of the 


“* Will nibble up to. ‘Al tracks « Copy a whole disk in under two minutes. 
» Fitted in minutes — no soldering required on 154) (1571 requires soldering). - 
Software Only $19.99 » Cable Only $19. 99 


256K SUPEROM EXPANDER Only $49.99 DIGITAL SOUND SAMPLER - Only $89.99 
« 68 sockets eack accept &K thr 32K ROM or EPROM = *® Allows you fo record ony sound digitally into memory 
‘chips, and then replay it with astounding effects. 
« On board operating system —nopiogramstoload.  § * ~Playback forwards/bockwards with wepakcciacs baled ring 
* Menu driven —just press a key to load program, oe modutation. 
* Select any slot under software controls. ~ « ~MIDI compatible with our MID! 44 interface. 5 
*« Unique EPROM generctor feature wil take your own . Full sound editing and realtime effects menu with wave- 
programs — basic or m/c and tum them into autostart forms. 
EPROMs (EPROM burner required). * Powertul sequencer plus load/sove function. 
* Une in — Mic in — Line Out — Feedback controk. 
ROgOT ARM — Only $89.99 : 
Human-like dexterity to manipulate small objects TURBO ROM II = Only 924.99 
. Accessores: Commodore bd Interface. Finger’ Jaws. e A replacement for the octual kemal inside your 64, 
Shovel/Scoop, Magnetic Attachment, 2 Joy Sticks * Loads/Saves most programs at 5-6 times normal speed. 
« Uses 4 °D* sire batteries (not included) ¢ Improved DOS support including 10 sec. format. 
. Works with or without interface « Programmed function keys: Load, Directory, Old, etc 
. aid fonomalkemolatfickofaswitch. | 
Mil 64- - Only $49. 99 i « File copier « Special |/O loader « Plus lots more: 
« Full specification MID! Interface at areatstic price, _—=s« ®”.-~«‘Ftted in minutes — no soldering usually required, | 
¢ MIDIIN * MIDI OUT « MIDI THRU MOTHER BOARD —- Only $29.99 | 
* Compatible with Digital Sound Sampler. eas R BOARD - Only $ 


s Accepts 3 cortridges (switchable) 
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TU-SA 10AM - 6PM 


COMPUTERS ~ CALL US FOR THE LOWEST PRICES ON OTHER HARDWARE & SOFTWARE 


Heda les 64 = ONLY $69.99 COMPLETE 


eer Quality, easy to use EPROM programmer for the 64/ 
Menu-driven softwore/harcdware package makes pro- 
gramming, reading, verifying, copying EPROM's simpiic- 
ity itself, 

Program 2716 THRU 27254 chips @ 12.521 of 25 volts, 

Full feature system — oll functions covered including 
device check/verty. 
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The most comprehensive, friendly and best value for the 


money programmer available for 64/128, re 
Ideal cornpanion for Superom Expander, 16K EPROM, ee 
Board or any EPROM-based project, ene 


TOOLKIT IV - Only $14.99 


* 


The ultimate disk fookit for the 154] with more featuras 
than most for less. 
An absolute must for the serious disk hacker, 


DISK DOCTOR V2 * HEADER/GAP EDITOR « DISKLOOK— 


disk to SCREEN of PRINTER. Much, much more. 


* RLE COMPACTOR « FAST DISK COPY e FAST FILE COPY 


10 SECOND FORMATTER « ERROR EDIT » MUCH, MORE. 


SMART CART — CARTRIDGE ONLY $59.99 


. 


. 


NOW YOU CAN HAVE A 32K CARTRIDGE THAT YOU PRO- 
GRAM LIKE RAM THEN ACTS LIKE ROM! 

32K psuedo-ROM — battery bocked to lost up to 2 
yeors. 


DISK software. 
SOFTWARE ONLY $14.99 
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DATEL COMPUTERS ro “Add $4 Shipping & Handling in the US. - Add $14 for Chocks / Voney Orders / 6.0.0. Accepted » SPECIFY COMPUTER & 


Mavterccardl - Foreign Orders — Canada/Mexico Add $10.00 ~ Virgin Is- DRIVE MODEL WITH ORDER « Please call for return authorization num- 
‘a ilies anda AK Hl EOD APM dda 87 0 Aen CANA A har Chor Batire ciblet in Oe rcinekina lon! 


‘Recover lost files. Disassemble any program from the 2 


Make your own cartridge — even auto start types with 

_out the need for an EPROM Burner. oe 

_ Can be switched In/out via software, ee 
Turn your cartridge into a 32K RAM disk with our RAM = 
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NEWS 


Commodore Revenue 
Increases 


Commodore Interna- 
tional (1200 Wilson 
Drive, West Chester, 
Pennsylvania 19380) 
reported that sales for |. | 

the second fiscal quar- DEC. DEC. 
ter, ending December 1987 1988 
31, 1988, increased 24 percent—to 
$349 million, compared with $281.7 
million during the same period last 
year. 

European operations accounted 
for more than 70 percent of total sales 
for the December quarter according to 
Irving Gould, chairman and chief ex- 
ecutive officer of Commodore. 
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Convoy Escort Service 


As mentioned in last month's column, 
Destroyer Escort ($39.95), a naval com- 
bat game, has now been released by 
Medalist International (MicroProse 
software, 180 Lakefront Drive, Hunt 
Valley, Maryland 21030) as part of its 
new MicroPlay Software line. You as- 
sume the role of commander of a de- 
stroyer escort ship in the North 
Atlantic during World War II, 

You're responsible for the safety 
of a World War II supply convoy in 
this one-player game. Choose from 
six convoy routes, each with three dif- 
ficulty levels and different challenges 
including routes prone to submarine 
attacks. 


The latest Commodore 128 release from Free Spirit Software (P.O. Box 128, 
58 Noble Street, Kutztown, Pennsylvania 19530), Poster Maker 128 ($29.95), 
allows you to create posters as large as 5 & 5 feet. 

Print out posters or save them to disk as picture files. A graphics utility 
permits you to import Basic 8, Sketchpad 128, or Spectrum 128 graphics files 
which can be enlarged on both the x- and y-axes. Also included is a clip-art 
creation utility that reduces the size of graphics screens. 

Poster Maker 128 operates on the Commodore 128D or the Commodore 
128 with a 64K video RAM upgrade in 128 mode with an 80-column dis- 
play. Resolution is 640 X 200 pixels. A 1351 or compatible mouse and a 
1571 disk drive are required. Optional support is provided for a 1571 or 


1581 disk drive as a second drive. 


Free Spirit has also announced an agreement with Walrus Software 
which allows it to publish Basic 8 ($39.95), a graphics programming system 
for the 128 and 128D in 128 mode with an 80-column display, Basic 8 adds 
over 50 new graphics commands to standard 128 BASIC. The programming 
environment allows 640 X 200 resolution in monochrome and 640 X 192 
resolution in 16 colors without any additional hardware. 

Other features include the ability to draw in a 3-D environment and 
commands for windows, fonts, patterns, and brushes. The package from 
Free Spirit includes a two-disk set containing the Basic 8 language, RunTime 
library, demonstration programs such as Basic Paint, Basic Calc, Basic Write, 
utilities, and a new 200-page manual, 

In conjunction with the Basic 8 announcement, Free Spirit has intro- 
duced Basic 8 Toolkit ($19.95), a utility program for use with the graphics 
system. The toolkit features a point-and-click operating system that allows 
the creation of custom pointers, fonts, patterns, and icons. The utility also 
converts Print Shop graphics into Basic 8 graphics files. Colors can be added 
to the patterns, icons, and Print Shop graphics with the color option. The 
toolkit also contains a set of disk utilities. Files created with Basic 8 Toolkit 
can be used in custom programs, in Basic 8 programs, or with graphics pro- 
grams such as Free Spirit's Sketchpad 128, Spectrum 128, or News Maker 128. 
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AND NEW PRODUCTS 


WWII naval action in Destroyer Escort 


The escort ship’s weapons in- 
clude torpedoes, a five-inch gun, 
depth charges, and an antiaircraft gun 
set to do battle with submarines, air- 
craft, and surface ships. You control 
the ship and its weapons by selecting 
from seven different battle screens. 


The Free-Spirited 64, 
Too! 


Free Spirit Software (P.O, Box 128, 58 
Noble Street, Kutztown, Pennsylvania 
19530) has not forgotten the 64 user 
while pursuing the 128 market. The 
company has released an updated ESP 
Tester ($24.95) that includes both the 
64 version and the 80-column 128 
version, 

ESP Tester uses the methods de- 
veloped by Dr. J. B. Rhine and the 
Foundation for Research on the Na- 
ture of Man to test powers of ESP. 
The program tests for clairvoyance, 
precognition, and telepathy. Results 
can be displayed onscreen, or they 
can be sent to your printer. 

A new 64 arcade game has also 
been released by Free Spirit. Players 
of M.A.C.H. become the ultimate war- 
rior of the future, a M.A.C.H. (Ma- 
neuverable Armed Computer Human) 
who is equipped with deadly hand 
rockets. As enemy invaders attack the 
city, the mother ship releases the 
M.A.C.H. to do battle with enemy 
agents that become more difficult to 
destroy as the game progresses. Play- 
ers must send the M.A.C.H. back to 
the mother ship periodically to rearm, 
replace armor, and recharge fuel cells. 
M.A.C.H. retails for $29,95, 
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Commodore Loses 
European Head 


Bank Street Data 


Sunburst Communications (39 Wash- —s mate and Weather Databases ($59) and 


ington Avenue, Pleasantville, New Colonial Times Databases ($59), have Harald M. Speyer, head of European 
York 10570) recently released three also been released by Sunburst. operations for Commodore Interna- 
new databases for Bank Street School Climate and Weather works with tional, resigned on January 31 accord- 
Filer and a manual, Bank Street School Bank Street School Filer to provide stu- ing to Business Week. The 48-year-old 
Filer Workshop Manual; the company dents in grades 4-12 with information» woct German helped Commodore 
has also announced plans for a new on 72 weather stations around the avoid potential financial ruin in 1985 
database-disk-exchange program for world, 62 weather stations in the and 1986 by selling IBM PC-compati- 
students. United States, and a starter database ble computers to West German busi- 
The Our Town Databases ($59) for students to record and analyze nesses while the U.S. home computer 
contain starter databases that focus on — their own information about local market was growing soft. 
the theme of community. Students weather. An activity in the accompa- Speyer had expanded sales 
can research and explore their town’s nying Teacher's Guide has students as-* j...,, ghout Europe, which accounted 
history, buildings, plant and animal suming the role of employees of for 70 percent of Commodore sales 
life, and important people, places, and Climate Finders, a travel and reloca- during the latter portion of 1988, Ger- 
events; then they can fill in database tion agency, Students must make trav- * 4145 sales presently account for 30 
records with their findings. el arrangements for clients based on percent of Commodore's worldwide 
Designed for students in grades their weather-condition requests. business, Sales of the Amiga line have 
4-12, the database Colonial Times works alsa boosted Commodore's share of 


with Bank Street Be- 
ginner’s Filer or Bank 
Street School Filer. 
Seven different data- 
bases contain infor- 
mation on historical 
and other aspects of 
the 13 colonies, in- 
cluding prominent 
Native American 


allows students to 
analyze such issues 
as the impact of the 
environment on 
plants and animals 
in their town and 
the steps food 

must take in order 
to travel from its 
point of origin to 


the European market from 2.7 percent 
in 1987 to 3.5 percent in 1988. Com- 
modore International President Mehdi 
R. Ali has not replaced Speyer, who, 
according to Business Week, is looking 
for a company to buy. 





Don’t Get Burned 
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the local grocery tribes; significant 
store, A complete six-unit curriculum political events; the lives of various biise Computing hee\relensaain) 
is included in the Teacher's Guide. patriots; descriptions of the jobs per- AiaciaGan a 2 ae fe parses jc 
Also included in the Teacher's formed; information on games, reci- f au Seales Zeer lhe ie ehh d 
Guide are instructions for participa- pes, remedies, and crafts; and profiles os 4 oe nal ploy cere reat 
tion in the disk-exchange program. of four fictional and one actual colo- trib is _ = sf oe ee ae ni 
After students finish entering data nial family. Teacher’s Guide activities C ‘ E . ace Sear So iforni 
about their own town, they can take are designed to give students in onana\ Be cea Ne ere SL OeT 
part in the Our Town Database Ex- grades 2-6 examples of colonial life. oe ' ike land oo 
change, which allows students to Sunburst has also released Bank af i ry cae rien ee oa 
compare and contrast their own com- _ Street School Filer Workshop Manual Me Se esti Sh UIE Bren BemOn 
munities with other towns and cities ($69). The manual includes a com- : ke pe eIpeones Wate 
in the U.S. and Canada. plete set of training materials to help a ots Sonereraeiadee aes Sabie D ede 
Two other new databases, Cli- teachers in the classroom. the'candie from :melting before Dreax 


escapes and wreaks havoc on the 
peaceful land of Deruvia. During your 
adventure in Deruvia, you'll encounter 
elves, dwarves, goblins, wizards, and 
any of 26 types of monsters. To de- 
fend yourself, you can utilize sword 
swinging, fireball throwing, or the 
casting of one of 24 magical spells. 
With a team of 25 characters, you can 
explore 54 levels of dungeons, six 
towns, six villages, and two castles. G 
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Leisure Genius Breaks from EA 


Electronic Arts has announced that its distribution agreement with England- 
based Leisure Genius/Virgin Games has ended, and that Virgin Games will 
begin distributing its products through its American subsidiary, Virgin 
Mastertronic. EA will continue to distribute Arcadia games for Virgin 
Mastertronic. 
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Speakers, Stereo, and MIDI Solutions 


Art Hunkins 


or the price, you can’t beat the 64 (or 128), with its proprietary Sound In- 
terface Device (SID) chip, But the musical capability of these machines is 
not limited to a single, built-in source. Here are three methods, ranging 
from simple to complex, for extending and improving your computer's 
sound and music capabilities. We'll look at connecting to a hi-fi system, 
adding stereo SID, and using your 64/128 to control a MIDI system. 





Interfacing SID to Your Hi-Fi 


The simplest way to improve sound quality is to bypass _ Sure, the ny OD, ae 15 great, but 
your monitor's tiny speaker and its tinny sound and hook ~ 


your computer into your home hi-fi system. If you're using the. ere s still lots of room fe OF: 

a monitor instead of a TV, you already have one of the re- improvement. Jalananina three Nes 
quired cables: an eight-pin-DIN-to-multiple-RCA-plug _ AANSS 
cord. This is the cable that connects to your monitor. If your diff erent methods if or | RR 


hi-fi amplifier has a MONO/STEREO switch, you need | dramatically expanding the 


only add an extension cord that has an RCA plug on one 
end and an RCA jack on the other. Lengths range from 3 to sound quality of Your ed or 128. 


12 feet. 

Unplug the audio lead from your monitor and attach 
the extension cord. With the amplifier off, connect the RCA plug to an available am- 
plifier input, either left or right channel. This can be AUX, TAPE, TUNER, or even CD 

In—anything except magnetic PHONO, 

Set the MONO/STEREO switch to MONO and the selector switch to whatever 
input you've patched into. (If you've selected TAPE, switch the tape monitor control 
to TAPE.) Turn your amp on, and your computer should sound from both speakers of 
your hi-fi system. Use your hi-fi’s tone or equalizer controls to shape the sound quali- 
ty to your liking. 

If your amplifier doesn’t have a MONO/STEREO switch, you'll need one more 
cable: an RCA-plug Y-connector with a single jack and two plugs. Again with the am- 
plifier off, attach one end of the extension cord to your monitor cable as before; then 
plug the other end into the jack on the Y-connector. The other two ends of the Y cable 
connect to the left and right amplifier inputs of your stereo. 

If you're using a TV instead of a monitor, you'll also have to purchase an eight- 
pin-DIN-to-multiple-RCA-plug cable. Continue to use your TV for video—just turn 
down the sound. Attach the DIN plug to the rear of the computer. It will only go into 
one socket. Now locate the audio lead, With the volume down, plug each lead into the 
amplifier while you're running a program that produces sound, When you hear the 
sound on your amplifier, you've located the proper lead. The video lead will give a lot 
of high-frequency white noise. 

The Commodore 1902A monitor presents a problem: The audio output is not 
available on a separate connector. Both ends of the cable are DIN plugs. To use it, a 
special cord with a separate pin plug for audio would have to be made—a project not 
suited for the average user. “a 
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With the exception of the eight-pin DIN cable, which 
can be found at most Commodore outlets, all cables are sold 
at Radio Shack. 
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SiD Programs 

Even the best sound chip and hi-fi system are of little value 
without flexible composing/arranging programs, arrange- 
ments to play, and driver programs to perform them. Fortu- 
nately, all of these are readily available. Prime sources for 
music editors (composing/arranging programs), players 
(play programs), and music files are user groups, bulletin 
boards, information services, and publications. 

Probably the best SID editor is Sidplayer, by Craig 
Chamberlain, Sidplayer, originally published in COMPUTE! 
Books’ All About the Commodore 64, Volume Two, was entire- 
ly rewritten for both the 128 and the 64 and appeared in 


ie rt H ited 
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Hindu Music fram Texas—-o0-4 \Siple 


Few American musicians become proficient in the clas- - 


sical music of India, but there's a Commodore owner in aii 


Houston who's an exception. This Texan plays and - 
composes Indian music, has written a book about it, 
and teaches it—with a little help from his 64. | 
_ David Courtney, who is working on a doctorate in 
ethno-musicology, has spent most of his adult life 
studying Indian music. For the past three years, as part 
of his doctoral dissertation, he’s been working on a 
unique musical program for his 64 that will help. him 
teach the music to others. : 
In developing the software, Courtney overcame sev- 
eral difficulties not encountered by Western program- 
mers and musicians. Notation is a particular problem. It's 


difficult to write Indian music in Western staff notation i Hi 
_ because of inherent differences in the way the two sys- 


tems express mode, tempo, and key. It's possible, but it 
forces musicians to compromise in many areas. | 
To avoid these compromises, Courtney incorporat- 


‘ed India's Bhatkhande (Sanskrit) music notation into his Hii 


aah) ii a \f 
; | A H's ted a ] 


program. As a composition plays on the 64, the corre- 
sponding Bhatkhande musical symbols scroll across 
the screen. ‘This visual and audio feedback is very 
useful for a beginning student to acquire a sense of the 
notation and structure of the music,”’ Courtney. Says. 

Students using Courtney's program can accom- 
pany selections recorded on the disk, or they can input, 
option for obtaining SanSRiit printouts of the music. from 
a dot-matrix printer. Similar features are found on con- 
ventional music programs, but Courtney's system deals 
with Indian music purely in Indian terms. 
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COMPUTE!’s Music System for the Commodore 128 and 64: 
The Enhanced Sidplayer (COMPUTE! Books, Chilton Book 
Company, Chilton Way, Radnor, Pennsylvania 19089; 800- 
345-1214). Sidplayer, the fullest implementation of SID- 
chip capability I've ever seen, is a composition program that 
should be in the hands of every composer/arranger for SID. 

This enhanced version is available only with a disk 
($24.95) and contains numerous utilities and an extended 
collection of musical examples. Original Sidplayer files are 
compatible with Enhanced Sidplayer. 

Hundreds of arrangements for Sidplayer are available 
on major telecommunications networks, including Quantum- 
Link, CompuServe, Delphi, and GEnie. These pieces can 
also be played via stereo SID, which is discussed later. 

With enhanced and stereo versions, SID becomes a sig- 
nificant medium for the composer/arranger. For mono, 
stereo, and MIDI applications, perhaps the most helpful 
SID information service is QuantumLink. The Quantum- 
Link subgroup for musicians is the Music Room. 

Q-Link is where Mark Dickenson’s outstanding soft- 
ware for stereo SID is available, as well as Chamberlain’s 
recent work in converting SID files to MIDI playback. (See 
the discussion of MIDI which follows.) Perhaps the simple 
realization that SID files can now be played through MIDI 
is a further reason to be excited about composing for SID. 
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ears program he’s Written on ‘his 64. Inset: 


Courtney’s personally designed Bhatkhande 
musical notation. 





Expanding to Stereo SID aoe 
One of the most exciting developments in SID sound is ster- 
eo, A plug-in cartridge furnishes three new voices for the 
right channel, while voices from the built-in chip are routed 
to the left. Though several units are on the market, the best 
is the SID Symphony Stereo Cartridge ($34.95), by Dr. Evil 
Laboratories (P.O. Box 190, St. Paul, Indiana 47272), 
Essential to those lacking access to online-service soft- 
ware is a $1 public domain disk also offered by Dr. Evil. It 
contains the latest version (version 10) of Mark Dickenson’‘s 
stereo SID Player, plus a sizable six-voice song collection. 
Dickenson’s software (available on Q-Link) is a re- 
markable piece of work, and version 10 is a significant im- 
provement over earlier editions. It is the first to support 
Chamberlain’s Enhanced Sidplayer additions. It also offers 
significant new options for performing mono SID songs in 


Courtney's program offers students bilingual 


| menus in English and Hindi. While printing English text 


presented no problem, Courtney was forced to create 


_ Special characters using a technique he calls pseudo- 
__ bitmapping to produce the Hindi script on the 64, 


Bitmapped graphics would provide the resolution 


required for reproducing Hindi text, but they would also. 


“require a large chunk of memory. Pseudobitmapping | 


basically is the same as redefining characters, Cour : 


_ explains, but it takes a new part of your character RAM | 
and defines another pseudobit buffer. The redefined © 
_ Hindi bit patterns are kept elsewhere in memory until 
_ needed, Then, just before use, they are transferred into 
this buffer, where they can then be called from either 


BASIC or assembly language. That way, you get the 


i] convenience of programming English text in text mode _ 


while getting the resolution and power of bitmapping 
through the pseudobitmap buffer. 
_ Now that the program is in beta testing, Courtney _ 


is negotiating with several institutions in India. By next 


year he expects to have the first computer-assisted mu- 
sic-education program in that country. Courtney hopes 
his program will find wide acceptance with musicians, 
teachers, and others interested in te) ete music 
of India. 

Courtney himself was introduced to Hindu music 


| aS a teenager through the recordings of Ravi Shankar, 
| the internationally renowned master of the sitar. In the 


1970s, after working toward an engineering degree for 
two years at Texas A & M, Courtney decided against a 


f _ technical career, pursuing his interest in Indian music 


instead. 
_ After two years of study i in California, Courtney 
moved to India in 1976. For the next four years, he ap- 


| prenticed with @ percussion music teacher, studying the 


Hy 


realistic pseudostereo. The principle behind stereo SID is 
simple: Compose two Chamberlain Sidplayer files, one for 


‘>, the left channel and one for the right. Stereo SID Player per- 
=~ forms them simultaneously. 


As when you're using mono, you need Chamberlain's 
Enhanced Sidplayer if you want to create your own arrange- 
ments. To simply play files and experiment with stereo per- 
formance options, Dickenson’s Stereo SID Player is all you 
need, In a nutshell, Stereo SID Player offers everything in 
stereo that Sidplayer does in mono—and more, including 
transpositions, programmed replays, and a jukebox mode. 
Even without stereo SID files, the performance options 
alone justify getting into Stereo SID Player. 

Stereo not only gives you three more voices, but it also 
permits richer sounds through voice doublings and trans- 
positions. It allows spatial manipulation and projection of 
sounds and, in general, the fuller sonic experience we have 
come to expect of stereo. If you haven't experienced stereo 
SID, you’re in for a real treat. 

Connecting the battery-powered SID Symphony Car- 
tridge is simple. First, with the volume down or off, connect 
your normal audio lead (as described previously) to the left 
channel input on your amplifier, A Y-connector is unneces- 
sary; instead, obtain an RCA-plug cable the same length as 
the left-channel extension cord, Select STEREO mode if you 


tabla, a pair of drums covered with goat skin and buffa- 
_ lo hide. Courtney became so proficient on the instru- 
_ ment that he wrote a book on the subject that was 
published in India. 

Before returning to the U.S., Courtney married an 
Indian who is herself an accomplished singer. They both 
now teach at a school of Indian dance and music in 
_ Houston. Most of their students come from the commu- 
Ha of about 20, 000 Ute cle in the Houston area. 


VEGLULT: 


| playing this valle since it aie the pec at a con- 
| stant speed and as often as the student wishes. As a 


_ student's skill increases, the lehra’s speed is easily 


increased. 

The Raga, an ancient traditional Hindu melody, is 
_as rich and varied as any music found in Western cul- 
tures, and it offers a wide range of musical texture, or- 


| namentation, and elaboration. ‘But India is changing, In 


many ways, the country is becoming Westernized, and 

Courtney says Indians are abandoning their traditional 

music, art, and culture. Courtney hopes computers can 

“help preserve and revive this ancient musical art form _ 

by making it easier for students to learn. 

Courtney’ S program, which employs easy-to-use — 

menus, is designed for musicians who may have little or 
_ nO experience with computers. “I'm trying to make _ 
things as simple as possible,” he says, ‘because | want — 
a program that can be operated in India by musicians 
and not computer techies, In a sense, the program is. 
‘structured like a word processor, but instead of working 
with words and numbers, your re working ih bisa 
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have a MONO/STEREO switch, Attach your cable to the 
SID Symphony cartridge and the right channel input of 
your amp. 


The MIDI Connection 

MIDI (Musical Instrument Digital Interface) is the way in 
which computers and musical instruments exchange infor- 
mation. With a 64 or a 128 controlling one or more MIDI- 
compatible instruments, you get high-quality audio, 
exciting and dynamic sounds, and a yariety of live- 
performance and storage options. With an appropriate 
sequencer program, your computer practically becomes a 
multitrack, editable, digital tape recorder. 

It is beyond the scope of this article to fully explain 
MIDI and what it can do on your 64 or 128. Fortunately, 
information is available from many sources; a particularly 
good article appeared in the August 1988 issue of Gazette. 
The 64 and 128 function well at the heart of any but the 
most sophisticated collection of MIDI instruments, and they 
do so at a considerably lower cost than other systems. This 
is not to say that MIDI comes cheap; it doesn’t. Even an 
entry-level system costs a minimum of $120 (compared to 
$35 for stereo SID), 


The SEX Sound Expander and Software 

The low-cost way to get into the wonderful sounds and mul- 
tiple voices of FM synthesis and MIDI is with a cartridge de- 
signed specifically for the 64 and 128—the SFX Sound 
Expander. The Sound Expander is produced by Commodore 
Great Britain and is distributed in the U.S. by Fearn & Music 
(519 West Taylor #114, Santa Maria, California 93454; 800- 
447-3434), The SFX Expander (FM Sound Module) itself sells 
for $90, while the mandatory (and highly protected) FM 
Composer/Sound Editor software goes for $30. 

An external, full-sized, five-octave keyboard is avail- 
able for $80, but with the limited note-entry capability of 
the Composer/Editor, | am not convinced it is worth the in- 
vestment. The keyboard is simply a control device. It does 
not produce sound and is not involved in playback, but it is 
an inexpensive way to program, store, and play your own 
FM sounds, 

One of the real limitations of the Expander system 1s 
that its external keyboard cannot be “recorded”’ by the com- 
puter in realtime, though it can be played. When you're 
composing or arranging, the keyboard furnishes pitch data, 
one event at a time. This is a feature of the Composer soft- 
ware, which operates only in step-time. This is not a full- 
featured sequencer program. A small keyboard overlay, 
offered at $10, may be more convenient than ASCII key- 
board note entry, even when assisted by the included stick- 
on note tabs, 

The SFX Sound Expander uses the same kind of chip 
found in Yamaha synthesizers—a simple FM system with 
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two operators (Operator Type LIL, or OPLII). Forty-eight 
sounds are available at once, and most of them are of high 
quality. Unfortunately, the software offers only one bank, 
along with three expander sets of 12 sounds; you have to 
create others yourself. Up to nine notes can be played at a 
time, or six pitches plus five preset percussion voices. Fixed 
rates (a hardware limitation) of tremolo and/or vibrato can 
also be added to either tone generator (operator). 

The editor software allows you to program a keyboard 
split point so that pitches above the point have one tone 
quality, and those below it, another. The real joy of this sys- 
tem is its multitimbral playback capability. In the Compos- 
er, assign each of the nine voices a different color and 
change colors wherever you wish. Dynamics, articulation 
(whether notes are connected or not), and transposition are 
also independently controllable in each voice. 

The Sound Editor is solid, if not elaborate; it serves asa 
fine hands-on introduction to FM sound synthesis. The seven- 
page, well-produced manual suggests that FM synthesis is 
difficult to understand (which is true), so the Editor offers a 
simple approach to producing sounds. You visually spin a 
Fruit Machine—the British term for a slot machine—to gen- 
erate sounds with a variety of random parameters, You can 
then immediately play, study, edit, and save these “found 
sounds.” This is a significant learning tool. The Editor also 
includes a basic eight-beat percussion sequencer, Rhythm 
Machine, capable of real- or step-time programming. It of- 
fers a choice of ten different preset drum kits. 

The system has a number of significant limitations. The 
Composer /Editor software includes just one song. The disk 
accompanying the Expander hardware has only three. 
There is little integration of Composer and Sound Editor 
programs; you must completely leave one before entering 
the other. The two programs can’t even play each other's 
songs. In particular, the basic Expander program cannot 
perform arrangements you make with Composer; this is 
unfortunate. 

The external MIDI implementation is also spotty. 
There is no way to feed in external MIDI song files (or 
sound libraries) from other systems. 

You need an additional MIDI interface just to connect 
any other instrument to the system, either for note entry or 
playback, Though the Expander contains an interface slot 
(so that the Expander and an external MIDI keyboard can 
play back together, creating rich textural overlays), the only 
compatible interface is the SFX Interface ($64), from Datel. 
(Software designed for the Datel interface is rare.) 

You can use an external MIDI keyboard or drum ma- 
chine with an SFX Interface for step-time note entry and 
stand-alone performance if you wish. By this time, how- 
ever, you've pretty much invested in a full MIDI system, 
and it might be better to forget about the Expander and go 
with more flexible software. 

Nevertheless, for just $120 you can purchase an SFX 
Sound Expander and FM Composer/Sound Editor software 
to write your own arrangements in step-time, hear them in 
up to nine-voice, multitimbral playback, and generally ex- 
periment with the fascinating world of FM sound. 

You'll have to live within strict limitations imposed by 
the program, and you'll have to be fairly self-sufficient. 
Only one program, the FM Composer/Sound Editor, is 
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that’s 4 for today’s 
good jo 

Jobs for computer service technicians 
will almost double in the next 10 years, 
according to the latest Department of 
Labor projections. For you, that means 
unlimited opportunities for advance- 
ment, anew career, or even a com- 
puter service business of your own. 1989 

But to succeed in computer service today, you need training— 
complete, practical training that gives you the confidence to service any 
brand of computer. You need NRI training. 

Only NRI—the leader in career-building, at-home electronics training 
for 75 years—gives you practical knowledge, hands-on skill, and real- 
world experience with a powerful XT-compatible computer you keep, 
Only NRI starts you with the basics, then builds your knowledge step by 
step until you have everything you need for a fast start as a high-paid 
computer service technician. 
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= Go beyond 
Ts . 
book learning” 
to get true hands- 
on experience 
NRI knows you learn better by 
doing. So NRI training works 
overtime to give you that 
invaluable practical experience. 
| You first read about the subject, 
studying diagrams, schematics, and photos that make the subject even 
clearer. Then you do, You build, examine, remove, test, repair, replace. 
You discover for yourself the feel of the real thing, the confidence gained 
only with expenence. 












a Get inside 
a powertul com- 
puter system 


If you really want to get ahead | 
in computer service, you have | 
to get inside a state-of-the-art = [— 
computer system. That's 
why NRI includes the 
powerful new Packard 
Bell VX88 computer as 
the centerpiece of your } 
hands-on training. rere 
As you build this | a 
fully IBM PC XT- | 
compatible micro 
from the keyboard up, 
performing key tests (a — iuancbinicina 
and demonstrations at sachs Hige of SSATISW you Tactially see for 
yourself how every section of your computer works, 


You assemble and test your computer's “intelligent” keyboard, 
install the power supply and 544" floppy disk drive, then interface the 
high-resolution monitor. But that's not all. 

You go on to install a powerful 20 megabyte hard disk 
drive—today’s most-wanted computer peripheral—included in your 
training to dramatically increase the data storage capacity of your 


= 


* 
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computer while giving you lightning-quick data access 


By getting inside this powerful computer, you 
get the confidence-building, real-world experience* 
you need to work with, troubleshoot, and service 
today’s most widely used computer systems. 







4. Make sure you’ve always got 
someone to turn fo for help 


Throughout your NRI 
training, you've got the 
full support of your 
personal NRI instructor 
and the entire NRI 
technical staff. Always 
ready to answer your 
questions and help you if 
you should hit a snag, 
your instructors will 
make you feel as if 
you're in a classroom of 
one, giving you as much time and personal attention as you need, 








m Siep into a bright new future in 
compuier service—start by i tel for 
your FREE catalog today! 


Discover for yourself how easy NRI makes it to suc- 
ceed in computer service. Send today for NRI's big, 
100-page, full-color catalog describing every 
aspect of NRIs one-of-a-kind computer training, 
as Well as training in robotics, TV/video/audio 
servicing, electronic music technology, security 
electronics, and other growing high-tech 
career fields. 

If the coupon is missing, write to: NRI 
School of Electronics, McGraw-Hill Continuing 
Education Center, 4401 Connecticut Avenue, NW, Washington: Dc 20008. 
IDM is a registered tratkemark of International Business Machines Corp. 
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available for the SFX Expander. While SFX is by far the least 
expensive way to enter the world of FM sound, it is neither 
expandable nor able to import materials from other sys- 
tems, Future software development for SFX is unlikely. 


Other MIDI Hardware 

Moving up to a full-fledged MIDI system can be expensive. 
You will need a MIDI-compatible keyboard ($130 and up), 
a MIDI interface for the 64/128 ($50-$100), one or two 
MIDI cables (five-pin DIN cables sold by music dealers for 
$6-$8 each), and software ($30 plus—unless you go with 
public domain). Two cables are required only if you intend 
to record and play back from your keyboard. 

Most MIDI keyboards have mono output (only a few 
have stereo), and you will likely need a phone-plug-to- 
RCA-plug cable to connect your amplifier to the output jack 
on your keyboard. Unless you have a MONO/STEREO 
switch on your amp, you'll also require an RCA Y-connector 
(one jack to two plugs). 

The Casio MT-240 is the least expensive MIDI key- 
board currently available, retailing for $139.95. It has min- 
iature keys (four octaves) and its tone colors cannot be 
programmed, It produces a particularly good piano sound, 
along with 119 other sounds; comes with built-in speakers; 
and can play ten notes simultaneously. It lacks a head- 
phone jack, keyboard split, and polytimbral capability. 

Casio's CT-640 ($337.73) has five octaves of full-sized 
keys as well as built-in song memory and a headphone jack. 
Possessing all the features of the MT-240, the CT-640 in- 
cludes 465 preset sounds, but it also lacks sound program- 
mability. 

The entry-level Yamaha (FM) MIDI synthesizer is the 
PSS680 ($250). It incorporates stereo speakers, percussion 
pads, song memory, reverb, and a headphone jack. Though 
its keys are small, it has five octaves. Best of all, its two- 
operator sounds are at least partially programmable 
through a small LCD display. 

The Casio PMP300 is the least expensive, full-sized 
multitimbral keyboard. Retailing for $269, it features four 
octaves and 210 sound mixtures, 

Full-featured keyboards—such as the Yamaha DX11, 
with velocity and after-touch sensitivity, five octaves of 
full-sized keys, and a split keyboard (or multitimbral capa- 
bility)—start at $840, Their features are what tend to make 
MIDI instruments expensive. 

Various companies—Yamaha, Casio, Roland, Korg, 
Kawai, Oberheim, Ensoniq—have different methods of cre- 
ating sound, and the results are often strikingly different. If 
you are concerned with variety and want to experiment 
with sound color, look for the most flexible and open sys- 
tem. Ask for a demonstration of as many varied sounds as 
possible, Wide-ranging programmability is your ticket to 
creative sound making. 
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MIDI Softivare 

Craig Chamberlain’s Enhanced Sidplayer, MIDI edition, is 
available in a special version for Casio CZ keyboards—a 
low-cost but now-discontinued series. (He is said to be 
working on other manufacturer-dependent editions as 
well.) The CZ version allows you to play any mono SID 
composition in multiple tone colors on CZ keyboards. 
Chamberlain's software, available on Q-Link, includes doc- 
umentation outlining how to add commands to your com- 
positions to access the CZ’s special features. 

Chamberlain's generic MIDI Player program opens up 
a great source (SID) of MIDI music for the beginner. It’s the 
only software you need to get started—and it’s free through 
Q-Link and some user groups. With Chamberlain’s book/ 
disk combination, you can create your own music and play 
it back either on SID or through your MIDI setup. 

Two other commercial music programs offer an option 
of either SID or MIDI playback: Instant Music (Electronic 
Arts, $29.95) and Advanced Music System (Firebird /Activi- 
sion, $59.95). Both packages let you play music through 
MIDI, using different interfaces, and with your choice of pre- 
set voice numbers. Instant Music comes already orchestrated 
for the Casio CZ101 and includes a large music library of 
rock-'n’-roll. It will even syne with a drum machine. 

If you want to enter music into the computer via a 
MIDI keyboard in realtime, you need a bona fide sequencer 
program. At $70.00—$150.00, these multifeatured pro- 
grams are customized for either the 64 or 128 and are de- 
signed to work with particular brands of interfaces. Before 
making a purchase, be sure to check the required interface. 
Offering significant sequencer and editor/librarian soft- 
ware are Dr, T, Sonus, and Passport. Also selling MIDI in- 
terfaces for the 64/128 are Datel and Sequential. Some 
interfaces are compatible with each other; others are not. 
Dr. T is compatible with Sequential; Sonus, with Passport. 
Datel isn’t compatible with any others but is the least ex- 
pensive ($49.95). 

If your MIDI keyboard is programmable and you wish 
to create and save your own sounds, you'll need a librarian 
or a patch editor/librarian ($100 and up). Librarians are 
generic and work with a variety of synthesizers, but they 
don’t allow you to edit or create sounds on the computer. 
Editor/librarians are keyboard- (or manufacturer-) specific 
and do allow you to create and rearrange sounds on a 64 or 
128. Your best bet probably is to purchase an editor/librar- 
ian for the MIDI keyboard you own. If you want to con- 
struct your own sounds, make sure that the programmable 
synthesizer you buy has editor/librarian software available 
for it. 

MIDI keyboards are widely available even in discount 
houses. Major music stores often have large MIDI depart- 
ments with staff members who are knowledgeable and 
happy to show off their latest electronic instruments and 
processing devices, 

There's a lot more music in your 64 or 128 than might 
casually meet your ear. Here’s a chance to let your musical 
creativity loose and let your spirit soar. Good-bye, tinny 
speaker. Hello, hi-fi and stereo; good morning, FM and 
MIDI. Here’s to many hours of good listening and happy 
arranging. G 





Island of Fantasy 


Cheryl Peterson 


Dragons and ogres have long » 
been a staple of fantasy games, | 
but now several major online 
services have added some 

innovative twists. Here’s an in- » 
depth look at one world where ° 


74 


the next character you meet in * 
a dark dungeon may be % 
another human. ; 
% 
4) 
I stand fresh off the dock on the Is- i 


land of Kesmai. I look around, but no /; 


one seems to notice my presence. A 
quick check of my possessions » 
(SHOW SACK, SHOW BELT) reveals : 
one gold piece, some leather armor, a g 
sword, and a shortbow. Not much, to K 
be sure, but enough for a novice 2 
fighter like me. Y 


I am about to enter the fascinat- i As I head for the temple (N N 
ing world of the Island of Kesmai, a x N—NORTH three times, or approxi- 
multiplayer interactive game on , mately 30 feet), | note the weapon 
CompuServe. Not only will I encoun- 5} and armor shops. With a little luck, 
ter dragons, trolls, and other creatures \) I'll be able to afford better equipment 
that inhabit fantasy games, but I'll > once I fight some of the dungeon 
also meet, talk to, and interact with as, denizens. 


4 





many as 100 other players who play I spot the temple doors and head 

this game simultaneously via modem ‘; for them. A town beggar accosts me, 

and personal computer. asking for a coin to buy a drink. “‘Sor- 
But first, 1 make my way through »> ry, friend, “ Tsay, “but I have no gold 

town, hoping to find the entrance to |) to spare.” 

the dungeon where most of the action : I desperately wish I could afford 


takes place. A vendor hawks a book }) to buy a few bottles of balm sold by 
purported to tell the way into the ) the vendor here in the nave, but at 16 
dungeon. Fortunately, before I ar- ' gold pieces each, they are far above 
rived, I learned that the dungeon en- «) my limited budget. Another player 
trance is inside the temple that is - walks in from the square. ‘Hello, 
north of my current location. save |, Cherp!’’ she says, looking at me. Tak- 
my lonely gold piece for something ¢ ing a close look at her, I recognize 
more useful, though nothing in town Lynn, a middle-aged female fighter 
comes very cheaply. \ from my home country of Mnar. > 
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Harry Blair 


_ “Howdy to you. Are you headed 
down into the dungeon? I've just ar- 


rived and this is my first trip down,” |” 


tell her. 
“Ah, I see. Yes, | was headed 


down, but I don’t think it safe for you ; 


to hunt where I'll be going. Do you 
have any balm yet?’ she asks as she | 
stands next to the balm vendor. s 


“No, I haven't the gold to afford } 


it,” I say hesitantly. 
“No problem; I have a few extra 


gold pieces. Come and get them,” ih 
“Thank you very much,” Tsay. 


Lynn drops some gold on the ground, 
and we wait as the vendor takes the 
gold and drops the balm bottles for | 
us. I pick up the bottles and add them | 
to my meager possessions. 

“IT can’t thank you enough for 
this,” I say. “Is there some way I can 
repay you? Perhaps we could meet 
here again later and I could give you | 
some balms in return,”’ fi 

“No,” she laughs, “I have no ii 
need of them. Just remember there are | 
always other players who are just y 
starting out. They may find them- 
selves in the same position you are in 
now. Try to lend them a hand when 
you are sufficiently strong. ‘ 

“By the way—one other tip,” 
Lynn says. ‘As soon as you can af- 
ford one, buy yourself a recall ring. 
There's a ring seller in the market- 
place by the pawnshop. Choose a safe |. 
spot here in town and put on the re- 
call ring. Then when you get into real 
trouble in the dungeon, remove the 
ring. You will be transported instantly 
back to the spot where you first put it © 
on. The ring is useless once removed, 
so you will need to buy another if 
you use the first. But it’s the best pro- | 
tection against sudden death if you 
take too much damage. 


= 


“Some of us carry a spare in our © 
sack and put it on in the dungeon, ! 
This helps us get back quickly. Take |, 
care.’ So saying, she disappears ina © 
flash accompanied by a thunderclap. 

With my few balms safely stowed © 
in my sack, | head down into the 
dungeon. No sooner do | alight on 
the bottom step than two ugly orcs |. 
approach from the south. Before | 
have time to think, they are on me 
(FIGHT ORC). I swing my sword and | 
hope to end the fight quickly, but it is R 
not to be, i 

My swing is wide and the orcs 
take jabs at me. Both score hits and I © 
fee] myself weakened by their blows. © 
Again | swing, this time nicking one 
of them (AGAIN). Yet again I swing, 
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Kesmai is much 
more than a 
conventional 
computer game 
because it offers 
true multiplayer 
interaction. 





and one orc falls beneath my blow 


» (AGAIN). The remaining orc takes a 
| swing at my head but misses. I dive 
, beneath the blow and strike for its 

» heart. Its armor blocks my blow, but I 


thrust again and it dies. 

I laugh joyously. My first kill, but 
I am badly wounded. Taking a balm 
from my sack, I open and drink it 


» (TAKE BALM FROM SACK AND 
» OPEN IT. DRINK BALM AND DROP 


IT). Good health courses through my 
veins, and, instantly, all the damage 
inflicted by my opponents is healed. 


| This balm is wondrous stuff. 


Searching the corpses (SEARCH 


» CORPSE. SEARCH 2 CORPSE), I find 


two gems and a few gold coins to re- 
ward me for my trouble (TAKE GEM 


| AND PUT IT IN SACK. AGAIN. 
» TAKE COINS AND PUT THEM IN 
» SACK). One orc is wearing chain mail 


and I quickly remove my leather ar- 


» mor and replace it with its slightly 
. dented armor (REMOVE LEATHER 


AND DROP IT. TAKE CHAIN AND 


- WEAR IT). I continue my exploration. ') 


, Fantasy Games Meet the 
'. Online Community 


This scenario may sound a bit far- 
fetched, but similar stories take place 


» each day on the Island of Kesmai. | 


» Spent several hours playing the game 


», every day for two months. Some 
* days, I spent 12 hours online. What | 


found was a wonderful alternate uni- 


» verse that’s so engaging I almost 
‘i didn't want to leave at the end of the 


. day. 

But Kesmai is much more than a 
conventional computer game because 
it offers an element that no home 


computer game can: Multiplayer inter- © 


action. Players standing in the same 


. area of the game can talk to one an- 
. other. It is also possible for several 


» players to plan group attacks against 


, tougher monsters. In fact, soloing a 
», dragon or drake is not the recom- 
». mended way to go about beating 


these critters, After all, monsters gath- 


er in packs to fight, so why not hu- 
» man players? 


But I'm getting ahead of myself. 


), How does one step into this world? 


First, open an account with 


) CompuServe. Before starting to play, 


you must create an alternate persona. 
The character may be male or female. 
You are given a choice of countries 


’ that your character may be from. A 


. character generator will then show 


you statistics that it proposes for your 
character. These stats will determine 
some of your character's capabilities. 


If you're not happy with the ones dis- 
' played, tell the generator to reroll. It 


will keep doing so until you're satis- 
fied with the character's stats. 
When the statistics suit you, 


', choose your profession and give your 
_ character a name. You may choose to 


be a fighter, a martial artist, a thau- 


' maturge (magician), a wizard, or a 

» thief. (Future plans for the game 

» allow for a new class of characters 
. called sorcerors.) 


Each of these professions has 
benefits and drawbacks. I highly rec- 
ommend getting a copy of the Island 


of Kesmai player's guide from 


» CompuServe. It’s invaluable and will 


save you considerable online time. A 
wealth of help files and information 


’ are offered in the MPGAMES forum 
' on CompuServe. Libraries there con- 
' tain maps, hints, and even a player- 
_ written guide called Uncle Balrog’s 


Beginner's Manual, 
The fighters and martial artists 
use brute force to win the day, while 


’. thaums and wizards tend to use mag- 


. ic to advance their causes. Thieves 
survive by hiding and stealing when- 


ever possible, and by fighting if they 


. get caught. When fighters advance far 
’ enough, they may make a pilgrimage 
~ to see Hermann the Hermit and be- 

» come knighted. Knights have a mini- 
, mum of magic power, but they can 


recognize thieves almost instantly. 


. Knights can also “see through” a 


thief’s hide spell if the thief is not 
more advanced than the knight. 


. Building Character 


Once you've created a character, you 
have a lot of challenges ahead of you. 


» Whatever your profession, you will 


» almost certainly start your play with a 
~ trip to the dungeon, the first level of 


which is designed to interest the be- 
ginning player. As you progress 
through the dungeon’s levels, the 
monsters you meet become tougher. 


At the fourth level, the opponents are | 


very difficult; few people of little 
experience visit those depths. 

New players must acquire 
enough gold to promote their charac- 
ters to higher levels. Usually this re- 
quires vanquishing numerous 
opponents. Thieves try to steal from 
those in the dungeon and then sell 


whatever they get. Another method is |. 


to run through the dungeon, picking 
up useful items like weapons and ar- 
mor to take out and sell to the shops. 
Of course, to do that, it’s wise to 
know which items have the highest 
resale value, since you can carry a 
limited amount of booty. 

The beginning levels of the dun- 
geon are enough to keep new players 
busy, but as your character gains 
experience you'll want to take on 
some of the game’s more challenging 
aspects. Level 4 of the dungeon con- 
tains a dragon’s lair. The dragon is a 
formidable opponent that does indeed 
breathe fire. The water channels in its 
lair provide some protection from the 
flames, but should you take a stun- 
ning blow while in the water, you'll 
drown unless you're wearing a water- 
breathing ring. These rings are found 
as treasure on some of the other crit- 
ters in the dungeon. 

If the dragon should manage to 
kill you, it almost certainly will eat 
you. (Hey, dragons have to eat, too.) 
If you're killed by the flames of its 
breath, the Ghods will resurrect you 


in the temple. If it gets you with tooth © 
or a claw, you become Kesmian Drag- |. 
on Chow and must reroll your charac- 


ter from scratch. Everything you own 
ends up on the floor of the dragon’s 
lair. The only thing you have left is 
any money you may have in the Kes- 
mai bank. 


Run Away or Quit 

Of course, if players are unable to co- 
operate, they are also able to fight 
each other. Kesmai frowns on battles 
between players, and it has a karma 
system that helps to deal with the 
problem. If you’re a new player, 
though, you should be aware that 
there are people in the game who do 
nothing but prey on other players. 
There is not much to be done about 
these people, Kesmai has plans to 


take care of them on a permanent ba- . 


sis, but in the meantime, the best 





Want to really get 
away from it all? 
Try spending your 
next vacation on 
the Island inside 


your computer. 





', thing to do if attacked by another 
_ player is to either run away or quit 


the game momentarily. 
Try to get the user number of the 


. person who attacked you and report it 
» to the folks who run the MPGAMES 
', forum. If you do get killed, you might 
. report it in the forum and see if any- 
one is willing to help you rebuild 

. your character. Kesmai may even of- 
» fer you some assistance, Killing other 


In addition to Island of Kesmai, you 


. | might want to check out some of these 


other multiplayer games found on the, 
major online aA 


| | CompuServe 


British Legends. Rae wizard or 
witch status in this game allows you to 


, | control what confronts other players. 
| Points are won by finding and 


’swamping” valuable: objects, Players 
can cooperate or fight each other, Steal- 
ing treasure is not unheard of. 


pained wa uri Conflict 


He llI—The New Empire 


a] (1-100. players). Two | games in one: The 
>| first phase is similar to MegaWars I, but 


you can design your own ship, the sec- 
ond phase requires planetary manage- 

ment to build an empire. There is team 
play using the hyperspace radio, This is 


| a four- to six-week game, with the win- 


ning team captain. becoming Emperor 


| of the Galaxy. 
| SeaWar (4 players), This game is simi- 


lar to the board game Battleship and 
offers weekend tournaments, 


SpaceWar (8 players). Faster-paced and 
more competitive than MegaWars, 
SpaceWar offers intership communica- 


| players is not the accepted mode of 
) play. 
A Step Beyond 


Island of Kesmai is more than just a 
~ computer game. The interaction with 


other players and the cooperation in 


accomplishing goals make it a step 


above the ordinary. The challenges of 
Kesmai are very engrossing—even 
when you've developed a high-level 
character, there’s still room to grow, 


’ New challenges are always being 
» added by the Kesmai staff. Two new 


advanced game segments are being 
tested and a new basic game segment 
is also being written. 

If you really want to get away 


from it all, try spending your next va- 


cation on the Island in your computer. 
All it takes to play is a modem, a 


| CompuServe account, and a little 
/ money. Be sure to open your account 


at least two weeks before your vaca- 
tion is scheduled. Good hunting, and 
if you see CHICKENCHERP, 
DREAM.GEISHA, or SHADOW- 


| DANCER, say “Hil” It might be 


someone you know. & 


; } Mare Multiplayer Action | 


tion and MU Lea UY 


You Guessed It! The online community 
meets “Family Feud,’ Players compete _ 
one-on-one or as team members, ie 


| game offers) real Lil HI) 


GEnie Hl 


Gemstone. A fantasy Ae BANE ad- 
venture game on a smaller scale than. 
Island of Kesmai,. Gemstone is similar. | 
to British: infill This a is hh in) |) 
its infancy, | 


Stellar Warrior, Blast enemy vessels. 

and capture alien planets in this tactical 
space adventure. Stellar Warrior is simi- 
Jar to MegaWars and i is operated by its) 
creators, 


Stellar Emperor. This game contains 
all the tactical features of Stellar War- 


rior but offers more stratepic: planning. - 


QuantumLink 


Rabbit Jack's Casino. This online of- 
fering features casino games, five-card- 
stud poker, blackjack, slot machines, _ 
bingo, and five: players per table in’ card 
games, The bingo payoff depends on 
the number of players; the slot-machine 
grand prize builds on the number of 
players and continues to build until 


/someone wins it, It can go as high as_ 


9999 Q-chips, This is the most inexpen 
sive online game available. 
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Spectrum 128 


Simply put, the Commodore 128 has 
never lived up to its advance billing. 
When it first appeared, the machine 
seemed destined to replace the 64: It 
had more memory, higher resolution, 
faster disk access, 80-column stand- 
ard—the works. In other words, the 
128 was to the 64 what the Apple IIc 
was to the Apple II, 

Trouble was, not enough people 
bought it. Another problem was the 
128’s complete compatibility with the 
64. Now, this would seem to be a good 
thing, but in fact it worked, in part at 
least, against the 128’s acceptance. Be- 
cause the computer was 64-compatible, 
it ran 64 programs; because it ran 64 
programs, nobody bothered to make 
128-specific programs. Why port a pro- 
gram to a new machine, the prevailing 
wisdom went, when the new machine 
will run the existing program? 


ifpnciruon 
+) 


_— 





Then, because there weren't many 
128-specific programs available, people 
didn’t bother buying the machine—at 
least not in numbers comparable to the 
64's. And so it goes. 

There is, however, a healthy batch 
of 128s out there, and there are some 
companies that offer 128-specific soft- 
ware. Berkeley Softworks is a big sup- 
plier, of course, with its GEOS 128 line; 
Batteries Included and Timeworks have 
also supported the 128. 

Now comes a line of 128-specific 
packages from Free Spirit Software, and 
whatever their merits, they're extreme- 
ly nice to have. 

Their merits, fortunately, are quite 
strong. 

Spectrum 128 is a 128-specific paint 
program. In fact, it’s not just 128-specific; 
its specificity runs deeper. To use Spec- 
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trum 128, you need a 128D ora 128 with 
the 64K video RAM upgrade (available 
from your dealer). In addition, you need 
a Commodore 1351 (or compatible) 
mouse and an RGB 80-column monitor, 

Impressively from an artist's stand- 
point, Free Spirit has chosen quality of 
performance over guarantee of sales, 
but one wonders how much the deci- 
sion has cost the company, Still, 128 
aficionados will surely be happy that 
they are finally properly served. 


Free Spirit has chosen 
quality of performance 
over guarantee of sales. 


The program itself is good. It auto- 
boots in 128 mode, then asks if you are 
using a 1750 REU and if your monitor is 
capable of Interlace Sync mode (the 
Commodore 1084 isn’t, by the way). 
This latter option is impressive—again, 
because it recognizes the special needs 
of serious 128 users. Finally, the menu 
bar appears. 

Spectrum's interface is straightfor- 
ward. Clicking the right mouse button 
on Menu yields a pull-down list of sev- 
eral options. Options are also click- 
selectable. 

Once you're in drawing mode, 
where you're actually working on the 
screen, the right mouse button controls 
what you draw. The left button brings 
up the color palette, and clicking on it a 
second time returns you to the menu 
bar. While you're drawing, the menu 
bar disappears. 

The items in the menu bar are 
Paint, Shapes, Solids, Tools, and Ex- 
tras. Each holds a host of options. 

The Paint item, for example, offers 
Paint, Air Brush, Mirror, Multi-Color, 
Block Fill, Block Erase, Erasers, and 
Clear Screen. 

Clicking on Shapes brings up Dots, 
Line, Lines, Rays, Box, Circle, Poly- 
gons, and Preferences. Polygons and 
Preferences both contain submenus as 
well; Polygons, for instance, allows 
Round, Dodecagon, Octagon, Hexa- 
gon, Diamond, and Triangle. You click 





on one of them and then create the 
shape you want on the screen. 

Possible solids are Sphere, Donut, 
Cylinder, and Spool. When creating a 
solid, you can select its screen appear- 
ance with the Preferences options: 
View, Shade, and Light. View lets you 
draw the solid on either the horizontal 
or the vertical axis and lets you look at 
the donut shape from a top view. With 
Shade, you choose between Textured 
and Halftone—the former using a ran- 
dom dot pattern; the latter, a fuller- 
looking object. The Light option offers 
normal lighting or backlighting. With 
backlighting, the object shows light 
coming from behind. 

From the Tools menu, you can cut 
and paste sections of your painting, fill 
in areas with one of many fill patterns 
available on Spectrum's data disk, put 
text into the painting (using, again, one 
of many supplied fonts), or edit colors 
or pixels, 


it bb toee Pee eee 
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Editing pixels is Spectrum's version 
of area magnification, in which you se- 
lect a small region and work within it. 
In Spectrum, you edit the pixels one 
color at a time, which means that multi- 
colored detail must be done in several 
stages. Editing colors is the way to 
change the colors of a specific object. 

Free Spirit explains, at the begin- 
ning of the brief (ten-page) manual, 
how Spectrum 128 works. Most 64 paint 
programs use a 160 X 200 pixel resolu- 
tion, with an 8 X 8 pixel color cell, Four 
colors can be displayed within each 
color cell, and a total of 16 can appear 
on the screen at any one time. 

Other programs, such as geoPaint, 
use 320 X 200 high resolution, still with 
the 8 X 8 pixel color cell. Spectrum 128, 
on the other hand, uses the 128’s video 


display chip to attain a resolution of 640 
X 200 pixels and (just as important) a 
reduced color cell of 8 X 2 pixels. 

This means, of course, much greater 
control over the appearance of the 
screen, because the color cells take up 
proportionally (and actually) much less 
room, More color cells spread over more 
pixels means much more possible detail. 

Working with these color cells is the 
heart of the Spectrum 128 package. The 
manual makes a big deal of suggesting 
that the Block Erase function is extreme- 
ly important in this program, but not un- 
til you use it do you realize why. 

Choosing Block Erase (from the 
Paint menu) brings up the color menu. 
You select a color and then proceed to 
draw a rectangle of any size on the 
screen. Click, and you have a rectangle 
of that color to work with, The impor- 
tance of this new rectangle is that it is 
essentially a new background that you 
can paint on. Spectrum uses the 8 X 2 
color cell as the basis for this function, 

What Block Erase does, then, is let 
you partition the screen into a variety of 
background colors. You can then paint 
on top of these areas as you would nor- 
mally paint on any background. You 
can paint directly on it or use Edit Pixels 
to isolate and magnify a portion of it. 

The disadvantage of using Block 
Erase is that you can’t move these rec- 
tangles around, but the advantage is 
that they’re much easier to work with 
than trying to manipulate the rectan- 
gles you draw with the Shapes menu. 
By thinking of your paintings as a series 
of backgrounds rather than as shapes 
superimposed on just one background, 
you will get the picture right much 
more quickly. 

The 8 X 2 color cells are also vital 
to Spectrum’s Multi-Color option. 
Usually, you will paint from a palette of 
16 colors, but Multi-Color gives you 
128 colors (they‘re actually dithered 
versions of the 16). You use these colors 
as a kind of low-resolution means of 
painting in gobs, and they can be incor- 
porated into any Spectrum picture. 

To display your pictures, Spectrum 
128 includes a slide show. Just insert 
your data disk (with all your paintings 
on it) and select Slide Show from the 
tools menu, and Spectrum will load and 
display all your artwork in succession. 
In fact, to get an idea of the kind of art 
possible with this package, simply ask 
for the slide show of the program disk. 
Several good-looking screens have 
been included. 

Spectrum 128 allows you to create 
some impressively detailed paintings, 
While not offering as much control over 
technique as you get from programs for 
machines such as the Amiga or the Atari 
ST, it is nevertheless a fine 128-based 
package. If Free Spirit does what it 
should, adding options and releasing art 


disks, Spectrum 128 could become some- 
thing of a standard for serious 128 users. 

It’s good to see the 128 being put to 
work, 


—Neil Randall 


Spectrum 128 

Free Spirit Software 
58 Noble St. 
Kutztown, PA 19530 
$39.95 


Jack Nicklaus’ 
Greatest 18 Holes 
of Major 
Championship Golf 


I had high expectations. Being a long- 
time golfer and a big fan of golf soft- 
ware, | anxiously awaited Accolade’s 
latest addition to its line of great sports 
software. Once I read the press release, 
I was convinced that Jack Nicklaus’ 
Greatest 18 Holes of Major Championship 
Golf would be the best golf simulation 
ever for the 64. Is it? Yes and no. 
Computer golf has been received 
far better than anyone ever expected, 
with a list of titles that seems to grow by 
the month. But only a few can rightfully 
vie for the title of Best. Because of the 
challenge in programming golf simula- 
tions, a majority of the titles available 
are little more than grotesque render- 
ings of the game. Jack Nicklaus meets 
the challenge and attempts to secure a 
position at the top by offering some ex- 
citing new features. 
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Included in the package are a play- 
er’s guide, a course sheet, and the 
double-sided game disk. The player's 
guide is thorough and well written, and 
it offers several special tips from Jack 
for improving your computer golf 
game. Once you've booted the game 
and selected a course to play, you're in- 
troduced to the copy-protection 
scheme. It’s one of the newest forms of 
protection, sometimes referred to as soft 
protection, where the player must type 
in a word or sentence that appears on a 
specific page in the manual. Accolade 
has added a twist that requires the play- 
er to match the number of the hole that 
appears on the screen to the corre- 
sponding number on the course sheet. 





To deter people from copying the 
course sheet and “‘loaning” it to friends, 
the sheet is printed on dark maroon pa- 
per with black ink. Just finding the 
match could be considered a game in it- 
self—very irritating to your eyes (but 
not to the disk drive). If you decide to 
quit a game in progress, you're returned 
to this initial screen and subjected to 
the same grueling process. 

Once into the game, you see the 
wide variety of options and unique fea- 
tures in Jack Nicklaus, Players can chal- 
lenge the Golden Bear himself or 
compete against male or female golfers 
in traditional stroke format or the recent- 
ly commercialized skins format. Three 
championship golf courses are included; 
Castle Pines, Colorado, and Desert 
Mountain, Arizona, are both courses de- 
signed by Jack Nicklaus, and the third 
one is comprised of Jack’s selection of 
the 18 greatest holes from the four major 
championships; the U.S. Open, the PGA 
Championship, the Masters, and the 
British Open. The only feature obvious- 
ly lacking is a course architect. 
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Among the impressive list of op- 
tions, the most intriguing to me is the 
opportunity to play against computer- 
ized players. Until Jack Nicklaus, no golf 
game had featured a computer golfer. 
Now you'll never have to worry about 
filling out a foursome. Eight golfers 
(four men and four women) are always 
there if you need a partner. Each of the 
golfers has different skills, which are 
outlined in the player's guide, For in- 
stance, Natasha is known as “‘a big hitter 
who drives from the men’s tees’’ and 
Eddie C. has a reputation for “suckering 
players into a ‘friendly’ game of skins.” 

The most prominent golfer in the 
group is Jack himself, whose skills are 
patterned after Nicklaus’s actual game. 
He is always a challenging opponent, 
but sometimes a little too good; even 
the legendary, real-life Jack couldn't 
beat computer-clone Jack on the put- 
ting green. Don’t be surprised if he one- 
putts every hole. 

The addition of a computer-players 
feature is questionable compensation 
for the lack of a course editor—in my 
opinion, a poor tradeoff. The computer- 
players option is a pioneer idea but ex- 
cruciatingly slow (approximately 45 
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minutes per round for each computer 
golfer). Without the ability to save a 
game in progress, the feature becomes 
practically useless. 

Several features in Jack Nicklaus 
enhance the realism of the simulation: 
rolling hills, downhill lies, and random 
pin placements. Since the flagstick is 
placed randomly, no hole plays the 
same way twice. Statistics are conve- 
niently tallied for you after every hole. 
You're given yardage for your longest 
drive and for your last drive, plus stats 
for closest ball to the pin, fairways and 
greens in regulation, putts taken, and 
birdies and eagles made. By studying 
these figures, you can determine your 
weaknesses and become a better player. 

Before play begins, you're given an 
overhead layout of the hole, complete 
with distance and par. Pressing the fire 
button brings up the game screen, 
where you view the course from behind 
the golfer. To select the direction of a 
shot, you move the ball located at the 
top of the screen. The flagstick is also 
displayed at the top to help you take 
better aim. 

Located on the left side of the 
screen is a power bar that gauges each 
swing. Press the fire button to start your 
backswing, and the power bar heads 
upward. Press again to start your 
downswing, and the power bar follows. 
The length of your backswing deter- 
mines the distance the ball travels. 

One last press controls when you 
hit the ball. Striking it early results in a 
hook (the ball goes to the left); hitting it 
late will slice the ball (cause it to go to 
the right). 

Once you've become familiar with 
the controls, you'll find that, in general, 
the game is much too easy. Wind has 
only a minimal effect on the ball, and 
the rough and sand traps aren't the haz- 
ards the old golf masters intended them 
to be, 

On the other hand, you're likely to 
encounter several problems on the put- 
ting green. Long putts are more often 
easier to sink than short putts. More 
than once I experienced a glitch when 
trying to tap in; the result resembled a 
shanked iron shot more than it did a 
putt, I’m a long-time advocate of diffi- 
cult putting in commercial golf games, 
but this lack of realism is not the answer. 

Reproducing a golf course with 
computer graphics can be just as tough 
as programming the game. Tees, fair- 
ways, long and short rough, sand traps, 
trees, water, and putting greens make 
up practically every golf course, and 
portraying them all on one computer 
screen is next to impossible on the 64, 
Accolade makes an admirable attempt, 
but the results appear overdone. On 
many par 3 holes you have to search to 
find the green, and without the flagstick 
indicator, the search would be endless, 
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First-time computer golfers 
shouldn't be put off by the criticisms 
found here. Jack Nicklaus is one of the 
best golf software packages available 
for the 64, with a vast inventory of good 
features that overshadow the draw- 
backs. As in real golf, a couple of good 
shots erase the bad ones and keep you 
coming back for more. 


—David Hensley, Jr. 


Jack Nicklaus’ Greatest 18 Holes of 
Major Championship Golf 
Accolade 

550 S. Winchester Blud, 

San Jose, CA 95128 

$29.95 


Double Dare and 
Hollywood Squares 


Your kids will complain that they don't 
get messy, and you may complain that 
you don’t get to keep the car. Aside 
from that, Double Dare and Hollywood 
Squares, two games from GameTek, 
provide almost as much fun as the orig- 
inal television game shows. Like Wheel 
of Fortune, these two games make a sur- 
prisingly faithful transition from TV to 
computer. 
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Hollywood Squares introduces you 
to a panel of celebrities who come pre- 
pared with quips and gag lines to help 
you win (or lose) this dandified version 
of tic-tac-toe. On certain rounds there's 
even a Secret Square with a bonus 
prize, The trivia questions used in this 
game are typical fare—sometimes 
deep, not always easy, but always 
primed for humor. For instance: “‘It is 
defined as a puzzling question or an 
enigma, which is to be solved by guess- 
ing. ... What is it?’’ Humorous re- 
sponse: ‘‘Finding a brain your 
husband’s lunch box.” Star’s actual an- 
swer: “A riddle.” 

It's obvious someone worked hard 
to make the computer version of Holly- 
wood Squares as much fun as the TV 
show. In addition to the questions, an- 
swers, and wisecracks, the animation is 
also good. Our only criticism is that the 
screen-clearing routine seems to take 
forever, Still, don’t let that bother you, 
Hollywood Squares is the laid-back sort 
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Hollywood Squares 


of trivia game that finds a comfortable 
place at a party or get-together where 
you don’t pay constant attention 
anyway. 

Double Dare—for those of you 
without kids—is based on a recently 
created game show that combines trivia 
questions with the reliable capacity 
children have for getting one another in 
trouble and the usually taboo fun of 
getting incredibly messy. 

Contestants have the choice of an- 
swering a question or daring an oppos- 
ing two-person team to answer. If that 
team dares back, you must answer or 
take a Physical Challenge. In the TV 
version, a challenge may consist of 
throwing wet sponges into a bucket un- 
til it is heavy enough to tip a second 
bucket of gooey syrup onto your part- 
ner’s head. 

While the computer version 
doesn’t provide opportunities for such 
personal messiness, it does require dex- 
terity as you face various arcade chal- 
lenges. Timing, in particular, plays a big 
factor toward success. 

At the end of a game, the winning 
team faces an obstacle course. This is 
where arcade skills really count. While 
TV players cope with a mess, computer 
contestants face the frustration of not 
being able to get anywhere. To make it 
tougher, the devious minds behind this 
game have decreed that forward on the 
joystick is right and backward is left, 
left is back and right is forward—kind 
of like adding a blindfold to a live chal- 
lenge, just to make it harder, 
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The trivia questions in Double Dare 
range from old TV shows to modern 
music to current events, and while 
some Physical Challenges are easy, 
others are impossible. The best way to 
play this game is in pairs—with one 
smart player providing reliable answers 
to the trivia and someone adept at ar- 
cade games handling the challenges. 

Animation here is quite good, par- 
ticularly the obstacle-course sequence. 
The obstacles are straight from TV, and 
the graphics are terrific. When the clock 
counts down during a question, the 
contestants’ facial expressions are great. 

We also liked the way the program 
lets you choose your screen persona. 
Cycle through four different possibili- 
ties until you find one you like. Actual- 
ly, both programs make note of a 
player's gender, so appropriate graph- 
ics appear onscreen. 

Be careful to follow the instruc- 
tions exactly when loading the game. 
Don’t include the ,1 most commercial 
programs require. It will sabotage the 
load. Both programs work fine with 
FastLoad. This is especially helpful 
with Double Dare. 

We were most impressed with the 
dedication to details and by the way 
producers maintained the original 
game formats. Where many programs 
adapted from another medium skimp 


on rules, method, or prizes, these two 
do not. Any fan of the TV games will 
enjoy these 64 versions. And even if 
you're not a fan, we think you'll get a 
kick out of these games anyway. 
—David & Robin Minnick 


Hollywood Squares 

Double Dare 

GameTek 

2999 NE 191 St. 

Suite 800 

North Miami Beach, FL 33180 
$14.95 each 


Powerplay Hockey: 
USA vs. USSR 


At the risk of alienating true hockey 
fans (who seem to make up about one- 
half the population of the United States 
and Canada), I’m going to say it: I’ve al- 
ways suspected a good portion of your 
enjoyment of the game comes first in 
anticipating and then in watching the 
inevitable fisticuffs. There—I’ve said it. 

When a fight broke out the first 
time | played Powerplay Hockey, I knew 
Electronic Arts had given the game a le- 
gitimacy it could have acquired in no 
other way. 


You don’t have to be told that ice 
hockey is a fast game, but you should 
know that this version of the game, 
which pits the U.S, against the U.S.S.R, 
sacrifices nothing in speed. To me, 
watching the monitor and trying to 
keep track of the puck is like watching a 
televised game of hockey. 

The camera pans across the ice 
swiftly and smoothly, sometimes leav- 
ing behind players who either are slow 
or have foolishly skated off in the wrong 
direction. The puck and the players 
move as though they're on real ice and 
follow the rules of the real game. 

Controlled by either the computer 
or a friend, your opponent is the Rus- 
sian hockey team. (You remember 
them—at the Lake Placid Olympics, 
they learned to believe in miracles.) The 
game has three difficulty levels. 

You can play one-on-one or have 
full teams of five on the ice. Either way, 
you control only the center, taking the 
face-offs and leading the attacks. In the 
one-on-one game, your opponent is the 
center until you gain control of the 
puck; then the computer controls the 
goalie, The computer always controls 
your goalie. 

In the full-team game, the same 
controls apply. The wings and the de- 
fensemen on both sides are controlled 
by the computer. They do their jobs to 
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the best of their abilities—unless you 
mess up, 

Even if you do mess up, the team 
can play almost as well without you. 
While it’s difficult. to keep track of the 
center in a team game, the team is per- 
fectly capable of stealing the puck, pass- 
ing it down the ice, and attempting goals. 

You'll want to watch your team for 
signs of fatigue. On the score/penalty 
board at the top of the screen, a shrink- 
ing line tracks its stamina. You can 
choose one of three teams: one good on 
offense, one good on defense, and one 
balanced, 

As the team leader, you'll have to 
take the bitter with the sweet. If a penal- 
ty is called, you're the one who sits in 
the penalty pox. Penalties occur for the 
usual reasons: roughing and cross- 
checking. Other defensive moves you 
may enjoy are body checks, poke checks, 
and slide blocks, Of the three, body 
checking seems the easiest way to start a 
fight and end up in the penalty box. 
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You control the game with the joy- 
stick and fire button. There are quite a 
few combinations you'll have to re- 
member in order to execute both offen- 
sive and defensive moves. No matter; 
learning is part of the fun. 

As in any hockey game, the action 
lasts for three periods, In this case, you 
can select periods of 2, 8, or 20 minutes. 
Though the length of a penalty period 
increases in proportion to the length of 
the period, it doesn’t matter much in a 
one-on-one game. In a one-on-one 
game, the action freezes for a moment 
and then you face off in the circle near- 
est the goal you're defending. 

At the end of each period, the 
screen shows the statistics (shots and 
goals) for each player. At the end of the 
final period, you see the statistics for 
the entire game and know whether 
you've lost or handed the Russian team 
yet another miracle. 

As a semi-reward, statistic screens 
are accompanied by the appropriate na- 
tional music (‘“Yankee Doodle Dandy” 
plays when the U.S. is ahead). At the 
end of the game, a typical cityscape 
from the winning country appears on 
the screen along with a congratulatory 
message, 
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The documentation for Powerplay 
Hockey is brief but good. Even those 
who are not hockey fans will soon un- 
derstand the rules. For example, none 
of my friends who are true-blue fans 
have ever been able to explain what 
icing the puck means. Yet after only a 
few games, my son could explain it. 


Watching the screen is 
like watching a televised 
game of hockey. 


I should note that the documenta- 
tion occupies a single large sheet. On 
the reverse side is a mini-poster show- 
ing the ultimate captain of the Red 
team. His nickname is Gorby. You'll 
recognize the fellow even though 
you're not used to seeing him in his 
team helmet. 

—Ervin Bobo 


Powerplay Hockey: USA vs. USSR 
Electronic Arts 

1820 Gateway Dr, 

San Mateo, CA 94404 

$24.95 


Calculator 128 


Calculator 128 isn’t Mathematica, but 
then that particular piece of software 
probably will never be ported to the 
Commodore 128 and 64. It isn’t a 
spreadsheet, either. What you'll find in 
this simple, yet comprehensive pro- 
gram is a practical calculator capable of 
assisting with the family budget as well 
as providing useful calculating capabili- 
ties for students in physics, trigonom- 
etry, and electronics, 

Despite its name, Calculator 128 
will run equally well on the Commo- 
dore 64. It is one of those rare commer- 
cial products without copy protection 
and written entirely in BASIC. Since it’s 
sO open to inspection, the package of- 
fers student programmers the opportu- 
nity to see the sorts of professionally 
written algorithms that go into a finan- 
cial and trigonometric calculator. 
(When you load the program into mem- 
ory, you'll probably want to correct a 
spelling error on line 315 where recipro- 
cal is spelled riciprocal. On the other 
hand, maybe that sort of thing only 
drives editors crazy. If so, forget I men- 
tioned it.) 

Calculator 128 can figure out loan 
payments, prompting you for selling 
price, sales tax, insurance, and other 
costs, down payment, interest rate, and 
number of monthly payments. After a 


second or two of calculation, it provides 
you with an estimated monthly pay- 
ment. The program offers the warning 
that interest rates are calculated in 
many different ways and that the an- 
swer provided by Calculator 128 is only 
an estimate. 

The program provides a conver- 
sion utility that converts between Cel- 
sius and Fahrenheit; millimeters and 
inches; meters and inches, feet, or 
yards; kilometers and miles; cubic cen- 
timeters and cubic inches; cubic meters 
and cubic feet; milligrams and grains; 
kilograms and pounds; liters and gal- 
lons; watts and horsepower; pounds 
and gallons of water; and a long list of 
more complex conversions such as 
translating liters per second to gallons 
per minute. 

The publisher suggests that this 
software will assist with statistical cal- 
culations, Although the calculator has a 
“memory” feature, it’s no more in- 
volved than the memory of a simple 
hand-held calculator available for a few 
dollars. Calculator 128 can’t by itself cal- 
culate chi squares or standard devi- 
ation. In fact, for most simple math 
problems, you would be hard-pressed 
to find a calculator more powerful than 
the immediate mode of the 64 or 128. 
For much more complex mathematics 
involving control groups and popula- 
tion studies, you should purchase a 
spreadsheet like Excel and a Mac or an 
AT clone to run it. 


A simple yet 
comprehensive program 
that will help students in 
physics, trigonometry, 
and electronics—as well 
as the person doing the 
family budget. 


For the intermediate-level user, the 
student of trigonometry, the salesperson 
trying to figure out income, anyone 
who often makes conversions between 
U.S. and foreign measurements, the po- 
tential home buyer trying to decide 
whether he or she can afford a house of 
a given price, or the student program- 
mer interested in seeing how this sort of 
program is put together, Calculator 128 
is worth a look, 

—Robert Bixby 
Calculator 128 
Educational Software 
4328 Ridgecrest 
Amarillo, Texas 79109 
$9.95 G 








"SWEEPER 


Ben Campbell 


You've received a message that 
Tyrabian mine layers have been 
spotted just outside the Earth’s at- 
mosphere. Intelligence reports indi- 
cate that the Tyrabians intend to 
conquer the planet without destroy- 
ing it. The first wave of attack will 
attempt to destroy major military in- 
stallations. The second wave will 
shut down the planet’s major power 
stations. The third wave will crush 
any remaining pockets of resistance. 

You're the commander of the 
interceptor base in the Gamma 
quadrant. As such, it’s your job to 
see that the Gamma power station 
remains online and operational. 
Failure could lead to the Earth’s de- 
struction. You have nine Sigma V 
remote-control drone ships. The 
drones are equipped with the latest 
in impulse-laser technology. From 
the interceptor control tower over- 
looking the power station, you 
must destroy first the Tyrabian 
mines and then the mine layer it- 
self, Five sectors (blue, yellow, 
white, green, and red) must be 
cleared before the power station 
will be safe. 


Typing It In 
Mine Sweeper is written entirely in 
machine language, so you'll need to 
use ““MLX,” the machine language 
entry program found elsewhere in 
this issue, to enter it. The MLX 
prompts, and the values you should 
type in, are as follows: 
Starting address: 0801 
Ending address: 2468 
Be sure to save a copy of the pro- 
gram before exiting from MLX. 
Mine Sweeper can be loaded and 
run like a BASIC program. To start 
the game, load Mine Sweeper and 
type RUN. 

The opening screen is filled 
with the view from the remote 
viewer in the control tower. Initial- 


Arcade action at its best! 
This game’s frantic pace 
will keep you riveted to 
the screen for hours. For 
the 64. Joystick required. 
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It takes several shots to get past the 
mine layer in this fast-action arcade 
challenge. 


ly, the viewer looks out over the 
power station. On the right side of 
the display, from bottom to top, are 
indicators for the current sector, the 
number of drone ships remaining in 
your arsenal, and your score. 

Press the fire button to begin 
and the first drone ship appears in 
the center of the viewer. The re- 
mote viewer always remains cen- 
tered on the currently active drone 
ship. When you move the joystick 
left or right, the ship turns left or 
right, respectively, but remains cen- 
tered in the display. When you 
move the joystick up or down, the 
ship moves vertically within the 
display. Pressing the joystick but- 
ton fires the pulse lasers. Holding 
down the joystick button causes the 
pulse lasers to fire rapidly, but the 
drain on the drone’s power plant is 
so great that your maneuverability 
is severely depleted. 

To save the power station, you 
must clear the mines from the five 


sectors adjacent to it. You clear a 
sector by destroying the mines with 
the pulse lasers in the drone. You 
will encounter three types of mines. 
Trackers, distinguished by their or- 
ange color, home in on moving ob- 
jects and, like all mines, explode on 
contact. The only way to avoid 
trackers is to shoot them before 
they get close. Sweepers, which pa- 
trol the entire airspace above a sec- 
tor by constantly sweeping up and 
down, are distinguished by their 
blue color. The best tactic for bat- 
tling sweepers is to keep your drone 
low. A searcher scans the sector and 
then moves directly toward any ob- 
ject it detects. Searchers are distin- 
guished by their green color and are 
nearly impervious to frontal as- 
sault; the best way to fight them is 
to dodge and attack from behind. 

Once all the mines in the sector 
have been destroyed, the mine lay- 
er must be destroyed. Mine layers 
have a pulse laser much like the 
one in the drone ships. This laser is 
an older model and can’t fire as rap- 
idly as a drone’s can, but it’s power- 
ful enough to destroy a drone with 
only one hit. Mine layers are pro- 
tected by a powerful force field. 
Each time you hit one with your 
pulse laser, the field is weakened, 
but it’s constantly renewed by the 
mine layers’ engines. You'll have to 
hit it many times to bring it down. If 
your drone is destroyed, the mine 
layers’ force field regenerates to full 
power before you can activate a 
new drone, 

You must clear the blue, yel- 
low, white, green, and red sectors 
in order to save the power station. 
Periodically (every 50 points), a 
new drone ship is prepared for acti- 
vation. You'll need as many drones 
as you can muster to save the power 
station. 

See program listing on page 72. G 
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What would you do if you lived on 
the edge of a cemetery and your 
backyard was invaded every night 
by hungry ghouls and goblins? 
You'd fire up the old barbecue pit, 
that’s what! 

Monster Bar-B-Q takes place in 
your backyard cemetery. In the 
foreground are three rows of tomb- 
stones and the crosshairs for your 
special ghoul zapper. In the back- 
ground stands your home, with its 
illuminated windows. On a tree 
branch rests a sleepless owl— 
blinking its eyes while observing 
the ruckus below. Lightning strikes 
and thunder rolls to signal the start 
of the game. 

Using the tombstones for cover, 
a variety of dreadful monsters pop 
up and down. These ghouls include 
the Vampire, Wolfman, Creature, 
Monster, Mummy, Red Devil, and, 
last but not least, Red Skeleton (sic!). 

With your joystick plugged 
into port 2, position the crosshairs 
over any monster's face; then press 
the fire button to vaporize the 
beast. The crosshairs of your ghoul 
zapper can move diagonally and 
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Charming graphics 
highlight this novel game 
for kids of all ages. 
For the Commodore 128. 
Joystick required. 
Cullen O'Day 


wrap around at the screen's edge. 
Make use of these features; later in 
the game, those monsters don’t 
stick around very long. 

Scoring is straightforward. 
Each monster you zap gives you 
100 points. Escaping monsters costs 
you 150 points; misses cost you 50 
points. 

There are five rounds in the 
game. A flash of lightning signals 
the beginning of each round, As 
you advance through the rounds, 


the monsters appear and disappear 
more quickly. The game ends when 
you've played five rounds or when 
the total number of misses and es- 
caped monsters exceeds 10. 





Fire up the barbecue—the monsters 
are back! 


Typing It In 

Monster Bar-B-Q is written in 
BASIC 7.0. To prevent typing mis- 
takes, use ‘“‘The Automatic Proof- 
reader,’’ found elsewhere in this 
issue, when entering the program. 
Once you've finished typing the 
program, be sure to save a copy to 
disk or tape before you runit. 6G 
See program listing on page 81, 





Let’s set the scenario: A wizard 
hands you a crossbow, Suddenly, a 
math problem appears. In front of 
you, there are four colored boxes 
with numbers inside. The wizard 
expects you to shoot an arrow at the 
box that contains the correct an- 
swer. You take aim and release. 
Bulls-eye! You've hit the target! 
With a puff of smoke, the problem 
disappears. You never knew math 
could be so much fun. 


Getting Started 

‘Math Magic”’ is written in 128 
BASIC. Type in and save the pro- 
gram. Be sure to use “The Automat- 
ic Proofreader,” found elsewhere in 
this issue, to ensure that you don’t 
make any typing mistakes. 

To play Math Magic, load the 
program, plug a joystick into port 2, 
and type RUN. A menu screen will 
appear. Select the type of problems 
you want to practice. Your choices, 
numbered 1-4, are addition, subtrac- 
tion, multiplication, and division. 

Next, choose a level of difficul- 
ty (1-13) and press RETURN. Level 
1 is the easiest; level 13, the most 
difficult. 

After you've entered your 
choices, the playing field appears. 
To your right is the wizard with a 
math problem beside him. Above 
your crossbow are four colored box- 
es with numbers inside. 

Using your joystick, position 
the crossbow under the box with 


Michael Kaelin 


An arcade-style math 
game? That’s “Math 
Magic,” a clever 
educational tool for 
children 5-9 years of age. 
For the Commodore 128 
with a joystick. 


sbi 
+05 
l4¢2 








the correct answer to the problem 
and press the fire button. If you’re 
right, you're awarded ten points 
and a new math problem appears. 
If you’re wrong, the problem re- 
mains on the screen until you cor- 
rectly answer It. 


“CMATH MAGTE 
eile STM) SOME GT 


Good marksmanship and even better 
arithmetic skills are the keys to success 
in this educational game for children. 


If you answer five problems 
correctly within one minute, you 
advance to the next level, The 
green, yellow, and red bar at the 
bottom of the screen helps you 
keep track of how much time re- 
mains. If the time expires before 
you complete the level, the game 
ends, You win the game by advanc- 
ing through level 13. 

String up your crossbow and 
grab your arrows because there are 
problems to solve. Who knows? 
The wizard may perform a little 
math magic and turn you into a real 
math wiz. 

See program listing on page 79. — G 
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The “CHR$ Graphics” editor automatt- 
cally redefines the 64's character set 
when you create your multicolor 
drawings. 





AE 0 Bd 2 de ee 


CHR$ Graphics 


Hubert Cross 


You've never had this much control over your graphics 
characters. With this utility, you can design and animate large 
multicolor images—up to 112 X 112 pixels—all from BASIC. 
For the 64. Joystick and disk drive required. 


“CHR$ Graphics” is a graphics edi- 
tor of a different sort. It uses rede- 
fined characters to generate shapes, 
but the images you design are not 
limited to an 8 X 8 pixel area—they 
can be up to 112 X 112 pixels (14 
* 14 characters) in size. You can 
design as many as 256 of these im- 
ages, The editor allows you to flip 
your images, shift them in any di- 
rection, and save them to disk. 
CHR$ Graphics makes creating 
complex character graphics as easy 
as using a good sprite editor. 

To help you use the graphics 
that you design, CHR$ Graphics 
adds six commands to BASIC for 
loading, saving, placing, and eras- 
ing your shapes. Once CHR$ 
Graphics is in memory, both the 
shape editor and extra commands 
are accessible, providing an effec- 
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tive, all-in-one graphics develop- 
ment system. 


Getting Started 

Program 1, CHR$ Graphics, and 
Programs 2 and 3 are written en- 
tirely in machine language, so use 
“MLX,” found elsewhere in this is- 
sue, when you enter these programs. 
When prompted by MLX, respond 
with the values given below. 


Program 1 
Starting address: $7C00 
Ending address: $903F 
Program 2 
Starting address: $3F90 
Ending address: $405F 
Program 3 
Starting address: $3C10 
Ending address: S541AF 


After you've typed in all the data, 
be sure to save a copy to disk before 
leaving MLX, Save Program 1 with 
the name CHR GRAPHICS, Pro- 
gram 2 with the name DEMO 
.FILE1, and Program 3 with the 
name DEMO,FILE2, 

Program 4 is written in BASIC. 
Use ‘The Automatic Proofreader,” 
also found in this issue, to type it in; 
then save it with the name DEMO. 
Before you begin typing, you must 
load Program 1 and activate it with 
the command SYS 31744, When 
you finish entering the demo, be 
sure to save a copy to disk. After 
saving the demo program, run it to 
get an idea of how powerful CHR$ 
Graphics is, Although the demo is 
25 lines long, the actual work of 
drawing and erasing images is done 
in just 8 lines of code. 


The Editor 

CHR$ Graphics’ editor is where 
you design custom character graph- 
ics for your programs. Plug a joy- 


stick into port 2; type LOAD “‘CHR 
GRAPHICS"’,8,1; and then type 
SYS 31744 to enable CHR$ Graph- 
ics. Type the command EDITOR to 
activate CHR$ Graphics’ image edi- 
tor. The editor initially starts in 
multicolor mode with a white bor- 
der and a black background. A 14 
X 14 character box appears in the 
lower left corner of the screen. The 
images you design are displayed 
full-size in this box. Note the char- 
acters at the top of the screen. As 
you create your images, you'll see 
these characters being redefined. 

To the right of the character 
box is a grid showing a magnified 
portion of your image. A small blue 
rectangle in the grid outlines the 
character being redefined. Because 
CHR$ Graphics starts in multicolor 
mode, characters are 4 pixels wide 
x 8 pixels high. When in hi-res 
mode, characters are 8 pixels wide 
X 8 pixels high. Since multicolor 
pixels are twice as wide as hi-res 
pixels, the character width remains 
the same no matter which mode 
you are in. Press M to toggle be- 
tween multicolor mode and high- 
resolution mode, 

Use the joystick to move the 
cursor. To quickly move to the 
upper right corner, press CLR/ 
HOME. To fill in a square, use the 
joystick to move the cursor to the 
square and then press the fire but- 
ton. Pressing the fire button acts as 
a toggle: Press the fire button once 
to fill a square; press the fire button 
again to clear the square. 

While in the editor, you may 
find the cursor moves too fast or too 
slow. You may adjust the speed of 
the cursor by pressing any of the 
number keys at the top of the key- 
board. Press 0 to make the cursor 
move as fast as possible; press 9 to 
make the cursor move as slowly as 
possible. Use the cursor keys to 
move the cursor one character at a 
time. 

CHR$ Graphics contains 256 
frames, with one image per frame. 
The number of the current frame is 
displayed above the character box. 
An uppercase F (for Frame) appears 
just before the number, You'll need 
to keep track of the frame number 
in order to recall the shape from 
within a program. 

As you design shapes, CHR$ 
Graphics’ editor automatically re- 
defines characters to create the im- 
age that you draw. The ASCII value 


of the character being redefined is 
displayed above the grid. You do 
not need to know this number to 
use the program; it is there simply 
for your convenience. Initially, 
empty areas of your drawing are 
represented by null characters 
(those with an ASCII value of 0). 
Unlike spaces (ASCII 32), null char- 
acters are not drawn when an im- 
age is stamped to the screen. 


Colors 

In multicolor mode, characters are 
drawn using three colors (pens), Se- 
lect a pen using the function keys. 
Press f3, £5, or f7 to select pen 1, 2, 
or 3, respectively. To change the 
color of the active pen, press either 
the Commodore or the CTRL key 
together with one of the color keys 
at the top of the keyboard. Note 
that there are only eight colors 
available for pen 3—black through 
yellow (CTRL-1 through CTRL-8). 
Also, whenever you change the 
color of a pen, every pixel drawn 
with that pen changes color as well. 

Press B to increment the back- 
ground color. When you change the 
background color, the color of the 
character set at the top of the screen 
changes to a color having a good 
contrast with the new background 
color. Press SHIFT-B to decrement 
the background color. 

Press G to increment the grid 
color; press SHIFT-G to decrement 
the grid color. In multicolor mode 
there are only eight colors available 
for the grid. Press S to increment 
the color of the sprite that high- 
lights the current character on the 
grid. Press SHIFT-S to decrement 
the color of the sprite. 

You have full-color control in 
multicolor mode only. In hi-res 
mode, the only active pen is pen 3, 
so you can have only one fore- 
ground color per character. Hi-res 
mode offers twice as many pixels 
per character, however. 


Emptying the Garbage 
Perhaps the editor’s most helpful 
feature is its ability to eliminate un- 
used and duplicate character defini- 
tions. In CHR$ Graphics, this is 
known as garbage collection. With a 
little thrift and the help of this gar- 
bage collection, you'll be able to get 
the most out of the 196 redefinable 
characters available. 

As you draw your images, you 
can see how the characters at the 


top of the screen are redefined. To 
see how garbage collection works, 
draw a long, straight line from the 
left border all the way to the right. 
As you draw the line, you'll notice 
the characters at the top of the 
screen being redefined to display 
the line. 

After the line has been drawn, 
press C to force CHR$ Graphics to 
perform garbage collection. CHR$ 
Graphics displays the message 
GARBAGE COLLECT during this 
process, Carefully watch what hap- 
pens. Your image doesn’t change 
shape, but you'll notice several du- 
plicated characters reappearing at 
the top of the screen. 

In addition to eliminating du- 
plicate character definitions, gar- 
bage collection also disposes of 
empty characters, (An empty char- 
acter is a character that has nothing 
drawn in it.) 


Shifty Images 

CHR$ Graphics is capable of shift- 
ing your image by characters or by 
pixels. Press U to shift the image up 
one character; press D to shift the 
image down one character. The L 
and the R keys shift the image one 
character left and right, respective- 
ly. The image stops when it reaches 
a border. 

To shift the image one pixel ata 
time, hold down SHIFT while using 
the keys mentioned above. For ex- 
ample, SHIFT-U shifts the image 
one pixel up. SHIFT-D, SHIFT-L, 
and SHIFT-R shift the image one 
pixel down, left, or right, respective- 
ly. In multicolor mode, pen color 3 is 
left behind when you move an im- 
age. This is a hardware limitation. 
Usually, you will have to retouch 
color 3 after shifting an image. 

Press F to flip the image hori- 
zontally; press SHIFT-F to flip it 
vertically. 

Depending on the number and 
complexity of your shapes, you may 
run out of characters when you try 
to shift or flip an image. If so, CHR$ 
Graphics does some internal gar- 
bage collection. If there are not 
enough characters left after the gar- 
bage collection, CHR$ Graphics is- 
sues an OUT OF CHRS message 
and leaves the image unchanged. 

If an image has not reached the 
border, yet it does not move when 
you try to shift it in that direction, 
there is an empty character in your 
way. To see it, press fl. Unused 
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Air Orders Processed Within 24 Hours 


COMMODORE i28p 
* 128K Std. S41 895 


* 3 Mode Operation 
1-64: Runs 64 software 
2-C128: Faster, more 
memory for increased 
productivity 3-CPM: 
Uses Standard 
cpm titles 








f CoEe bpoet rrr 


ality 


1670 Modem 


Save time and increase 
productivity with the Commodore 
1670 Modem. The 1670 utilizes 
the popular “AT” Hayes 
command sets, buill-in speaker, 
auto dial, and auto answer, For 
affordability and reliability, 
choose the Commodore 1670 


= $59% 


POWER SUPPLY 
COMMODORE 64 


Tired of buying yet another 
throw-away brick power 
supply for your Commodore 
64? Go with the Micro Rad 
Power Supply. The MW 
701-A features double fused 
systems, schematics, and a 
one-year warranty. Stay 
with the best, stay with 
Micro R&D. 


MAGNAVOX 
CM 8762 


The Magnavox CM 8762 14” 
monitor is the smart choice for 
your computing needs. 
Standard resolution is 640H x 
240V. This monitor includes a 
buill-in till stand plus a green 
laxt display switch. Fora 
monitor with RGB TTL (CGA) 
and composite inputs, stay 
with the Magnavox CM 8762. 








$34° 


1-year warranty 





$239 


1-800-233-8760 


Suggested use 128D or Coit PC. 


yco Computer 


64C 
System 
Special 


$449° 


COMMODORE 


« Commodore 64C Computer 
« Excel FSD-2 Disk Drive 
«Commodore 1802C Monitor 
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Excel FSD-2+ Disk Drive 


$1 48” 


100%. Commodore 
64C drive compatible, 
the Excelerator Plus 
Disk Drive is quieter, 
smarter, faster, and 
more reliable than the 
1841 and 1541C, 





1-year warranty 


COMMODORE 
Disk Drive \ 


$179°5 


2105 A 


GoldStar, a name you can 
depend on, now provides the 
2105 12" composite 
monochrome monitor for 
your computing needs, Tha 
GoldStar 2105 supplies a 
high resolution of 640H x 
200V for IBM, Commodore, 
Apple and Atari computers 
with composite outputs. 
With your choice of either 
green of amber display, 
GoldStar's 2105 monitor will 
highlight your home or office 
computing neads. 








Add more computing power 
to your Commodore with 
the 1581 Disk Drive. The 
1581 features 3.5° 720K 
storage capacity and DS/ 
DD. Add the 1581 on your 
Commodore today. 


54 GoldStar 


Vise Bee gine Goer os Creer: 











$749 





















commonore {> {] {| PC/XT 


The Commodore Coll, a 
computer with all the 
built-in features you 
need. The Coll includes 
640K, RAM, CGA video 
support, wo 5.25 360K 4 
disk drives, serialand <2 
parallel ports with three “ 
clock speeds (4.77/7.16/ 
9.14 MHz}, 





| $669°° 
Save $20 on any 


monitor of your choice. 


xetec Super Graphics Gold 


The Xetec Super Graphics 
Gold printar interface 
combines improved speed, 
features and more memory to 
Salisty e most demanding 
user. Aetec has incorporated 
a 32K buffer, 16 active DIP 
switches, a utility disk with 40 
fonts, 16 additional 
innovative features and a 
lifetime warranty into the 
Super Graphics Gold. Xetec 
now provides you tha most 
completa printar interlace 
available for your 
Commodore. 


EPRYX 


The Epyx 500 XJ scores 
signiticantly higher, faster, 
and easier than any joystick 
manufactured. The 500 XJ 
comes with palm grip and 
trigger finger firing. Break 
your previous record with the 
Epyx 500 XJ. 

(Atari, C-64) 


$1 95 


Super 
Crraphics 
Crold 


$7495 


500 XJ 
Joystick 








| MONITORS 


Magnavox GoldStar 

BM7652 oo.ccscccsseesee. $84.95 2105 G Composite ...$74.95 

BM7622 Scare. $84.95 2105 A Composite ... $79.95 

7BM-613 ..... $79.95 1410 CGA 14"........ $219.95 

TBMG23 vicscsccrerseres $79.95 1420 EGA 14"........$3918.95 

CM8702 ........0...$179.95 1490 VGA 14"........$379.95 

CMB7B2 on.....ccccsseees $239.95 1440 Superscan.....§459.95 

BCM-515 .. $259.95 

QCM-059 iccssccsssice. $339.95 Commodore 

OCM-082 ....cccccsce-: $439.95 16020 iiccccesee $189.95 
1084 es $279.95 





1200hc 
Modem 


Versatile power and 





Avatex 1200hc delivers iz 
the great features of the eZ 
. Avatex 1200 and more, ¢*- Pa 


including Hayes® 
compatibility, to allow 
use with virtually all 


=. $89 


Avatex 

1200) PC Cardo... $65.95 
12000 voces $69.95 
T200P voesccssens $89.95 
1200hc Modem ............ $89.95 
2400) I! PC Card......... $129.95 
DADO veccccscssessreserereserene $170.05 





Mmicreani: & 


NX+1000 ...ccsccsesseeeserese $164.95 
NX-1000C (64C) ........ $169.95 
NX-1000 Color ........... $217.95 
NX-1000C Color 

(640) ccscsescs swe $225.95 
NM 2400). ccscsessivorsersscs $299.95 
NX-15 vies $909.95 
NRA-10 seen $319.95 
NAAB ee $419.95 
Brother 

HAZ .... pee 4.95 
M1709 ... ue. $364.95 
M1724L . $529.95 
HR4O ... vee $589.95 
SEIKOSHA 

SP Series Ribbon ........... $7.95 
SP 1600A/ ............00.... $179.95 
SP 1200AS AS232.....$189.95 
SP 1000 AP .occcccccccsones $189.95 
SL BOAL 10105. $319.95 
SICFOOO Al cescssssscerersees $359.95 
SK3005 Ali ..cescccccccseseee $445.95 
SL 130Ai..... $599.95 





Lyco Means Total 


Service. 


A Valex Modems 


Commodore Modem 
Connection Cable by 
Peak Peripherals 





1200E Modem 


Full Hayes® command 








switching, plus: 
Your total solution for Commodore 64/128 * 2 configuration 
to modem connections. + 4 phone numbers stored 
* External configuration 
* View menu 
2 year warranty 
Commodore Hayes US Robotics 
1670: fitiaiestitiersitlineiaiy $59.95 Smartmodem 300.......$139.95 Sportsler 1200 PC.........$79.95 
Smartmodem 12008 . $279.95 Courier 1200 .............. $169.95 
Supra Smartmodem 1200..... $279.95 Courier 2400 PS.......... $259.95 
Oe $119.95 Smartmodem 2400 ..... $399.95 Courier 2400 .............. $289.95 
Smartmodem 24008 $419.95 Courier, 2400e ............ $919.95 
Courier 9600 MST......$619.95 


= CITIZEN 


120 D... ve 199.95 1180 
180 D... sereeeeeee 9159.95 1191 
MSP-40 .. scscessseasssrearseres $279.95 3131 
MSP-50 ooo $299.95 1124 
MSP-15E veces $09.95 1592 
Tribute 124 ..........0....-. $3979.95 1595 .. 
MSP-45 ooo. ccccccccsnescene $979.95 1524 
MSP-5S ......cccccssccsseee $499.95 

Pramiare 35 vc. $499.95 


Tribute 224 bdbd reba bddebdne 





The 320 9-pin printer combines the 

best of the OKIDATA tradition of 

reliability with the latest in high-tech QO(Q) 
engineering to create a new 
standard for utility printers. The 
result is a fast printer, with the 
highest speed and throughput in its 
class. Turn the 320 loose at 300 
cps in draft print and it quickly cleans 
up detailed jobs, Turn out NLQ 
documents as required at 63 cps. 


We carry the entire line 
and a 


=> CITIZEN 


Citizen 120-D 





you are seeking world 
renowned printer 


D. Your data processing 
needs are handled quickly at 
a print speed of 120 cps 

(draft) or 25 cps (NLO). The 
120-D features 9 pin dot 
matrix print quality, standard 
parallel centronics interface 
and a 4K text buffer. 


Office Automaty Wy 


24 Pin .. 


OKIDATA 





$337°% 


Citizen 180-D 





=e ee 


$137° 








OKIDATA 


Okimate 20 ......... sashtias ue 39,95 
Okimate 20 wicart .. B¢ 


You can always rely on the 
Citizen 180-D. From its 
prica/performance value, to 
a print speed of 180 cps 
(draft) or 29 cps (NLQ) the 
Citizen 180-D is an 
ey cellent printer for the 
home or small business. 











Since 1981 


Maelcscmuviesccaiiiiewraciticoa || 


- Panasonic 


Office Automation ES ya 








$175” 


KX-P 1180 


The 1180 by Panasonic offers you more than 
what you might expect in a low cost printer. 
With muhtiple paper paths, versatile paper 


and Draft, with speeds up to 192 cps in Dratt 
and 38 cps in Near Letter Quality plus crisp, 
clear graphics. 





For fast output and professional print quality, 
choose Epson's LX-800. This full featured 
80 column printer has a speed of 180 cps 
(draft) and 30 cps (NLQ). Epson's exclusive 
SelecType front control panel lets you 
customize documents with popular type 
styles. The Epson LX-800 delivers 
affordable, professional printing for your 
home or office. 


$168°° 





Price Guarantee 





$319 
KX-P 1124 


For excellent print quality in a high speed 
printer, choose the KX-P 1124. Its 24 pin print 
head produces draft text al a quick 192 cps 
(dratt) or letter quality text .: 63 cps. In 
addition, the KX-P 1124 provides such 
standard features as selectable push/pull 
tractor, 5 resident print fonts, parallel 
centronics interface and a standard 6K buffer. 
Panasonic's KX-P 1124 ensures that your 
printing will be fast and professional. 


EPSON 





LIMLULLL 


- /} 


24-pin quality 





The Epson LQ-500 is at home wherever letter 
quality printing is required. Standard print 
speed is 180 cps (draft) and 60 cps (LQ). The 
LQ-500 is ideal for either the home or the most 
demanding business applications. 


$288" 


Since 1981, we have led the industry by continuing to offer the lowest national prices while providing quality 
service. Many companies have come and gone trying to imitate our quality and service. If by some oversight 
we do not have the lowest prices advertised on the products you desire, then we would appreciate the oppor- 
tunity to rectify this oversight. 


ee 


yco Computer 


Marketing 
& Consultants 


KX-P1191 


Announcing the Panasonic KX-P 1191, a9 pin 
printer with advanced features that put it ahead 
of its class. The 1191 features the EZ-Set 
operator panel that lets you access the most 
commonly controlled printer functions right 
from the front panel. The 1191 has other ad- 
vanced features, including an adjustable push/ 
pull tractor feed and multiple paper paths. All 
these features come packaged in a rugged, 
ergonomic design with a two year limited parts 
and labor warranty. 


ee 





$2355" 


“quantities limited 


FX-850 





Epson's FX printers are legendary in the 
computer products industry. The FX-850 
continues Epson's long tradition of quality, 
performance and reliability. It prints at 
264 cps in draft mode and 54 cps NLO - 
insulated for quiet operation. Like all 
Epson computer products, the Fx-850 
printer is supported by a nationwide 
service network and backed by Epson's 
1-year limited warranty. 


$329° 
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Access 


Echelor 
Art Mach 1. 
Why shop at Lyco Computer? Maa 
Lyco Computer is one of, if not the largest, and most established firms to provide only quality name Fm, Co 
brand computer products al prices 30% to 50% below retail. We've set many industry stangards, and Heavy } 
we are setting the pace for many more in the future. Our standards include: a separate department for Fireston 
customer service; a price guarantee; guaranteed factory fresh merchandise; diverse payment and r 
pri Ppiog policies, see) a C.0.D. policy which allows customers to have products in their hands m. CO 
efore paying anything. Selection RCE Lyco at the forefront of the industry. Due to our in-stock Leader 
volume, we cannot advertise all of our products. If you do not see the product you want advertised, Pack ... 
call Lyco Marketing toll free. Mach 5 
Triple P 
How do | know | will get the product I need? pigs) 
Our marketing staf! is well-educated in the computer industry, They receive continuous formal training Thunde 
by our manufacturers which enables them to develop and maintain a high degree of expertise on the 
roducts they represent. Though our strict guarantee on providing only new merchandise prohibits Activis 
ree tral periods and a guarantee on compatibility, a wealth of knowl is available to our cusiomers Last Nir 
to help with the purchasing decision. As thousands of people every week capitalize on our savings Might & 
and services, we hope you too, will make Lyco Computer your first choice. Crossbe 
Maniac 
What about warranty or service? Peet 
We decided several years ago that a Customer Service Department was needed in the industry, Un- Neurom 
fortunately, few of our competitors offer this service. Our Customer Service Department is available at Ocean fF 
in) 494-1670 to provide assistance in all warranty matiers. Our product line enjoys “name brand Rampag 
recognition,” and we back all of our manufacturer's stated warranty terms. Many manutacturers will Sky Tra 
allow defective products to be exchanged, Before returning any item that appears to be defective, we r y 
ask that you call our Customer Service Department to assist you in determining if the product is deftec- ake De 
tive. If the product is determined defective, they will give you a special authorization number and Zack M 
speed processing of your order, Lone Mi 


Will you rush an item to me? 


Since 1981, we have set the standard in the industry b af processing orders within 24 hours - dosha a a 6 
weeks. We offer next day air, two day air, standard UPS, and postal international Shion’ 

Our records show we fill 95% of our orders daily. Temporary shortages are normally fi ed within 1 within 10 
days. tf an order cannot be filled within 60 days, we refund your money in full, unless you choose to 
wait for the order and benefit from the price savings. Any time prior to shipment, you may cancel or 
change the out of stock product by contacting our Customer Service representatives. 





Sales: 1-800-233-8760 or 717-494-1030 
Hours: Monday through Friday, 
9:00 a.m. to 8:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 
Customer Service: 717-494-1670 
Hours: Monday through ereey 

9:00 a.m. to 5:00 Sinai 
Fax: 717- yal 1 41 


How do | order? 


Send your order to Lyco Computer, P.O. Box 5088, Jarsey Shorea, PA 17740. Or, call 1-800-233-8760 
or (717) 494-1030. We provide four payment methods. We have always accepted C.O.D. orders 
through UPS. Prepaid orders over $50 are shipped freight-free in continental U.S. For orders under 
$50, please add $3 for freight. Orders prepaid by a certified check or money order are shipped 
immediately. Personal and company checks require a 4 week waiting period prior to shipping. Visa 
‘and Master Card orders are accepted for your convenience, but we cannot pass along the 4% discount 
offered for cash. Prices advertised are cash prices. Purchase orders are accepted from Educational 
Institutions. We only charge sales tax on items delivered in Pennsylvania, For APO, FPO, and 
international orders, pease add $5 plus 3% for priority mail. Advertised prices and availability are 
subject to change. Nol responsible for typographical errors. 








a 


micronics 


NX-1000 $164°° 


Star's answer to 9 pin dot matrix printers. A soft touch control panel 
and Star's paper park feature solves your multi-document needs. 144 
cps draft and 36 cps NLQ give you high resolution 9 pin performance 
in an affordable package from Star. 


Announcing STAR’s NX-1000 Printer in 4 Models! 





NX-1000c 


With a Star NX-1000c printer your printing options will 
never cease to amaze you. The Star NX-1000c has 
standard Commodore serial interlace for 64/128 
computers, Print speed is selectable at 144 cps 
(draft) or 36 cps (NLQ) and paper parking will land 
versatility to your document handling needs. The Star 
NX-1000c will fulfill your requirements to the letter. 


$1699 


NX-1000 Rainbow 


The Star NX-1000 Rainbow adds a whole new 
dimension to your work through multi-color printing. 
Star has designed 20 printing options into this printer. 
Add to this paper parking, Epson-IBM emulation, high 
resolution NLQ/graphics for a printer with extra talent 
over the competition. Star's NX-1000 Rainbow does 


$9179 


NX-1000c Rainbow 


Step into a world full of color with the Star NX-1000c 
Rainbow printer. Seven color printing is available 


along with the same standard features of all Star NX- 


1000 printers, Standard Commodore serial interface 
is included, Enhance your Commodore productivity 
with the Star NX-1000c Rainbow. 


$225 
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Editor Command Summary — 
| 0-9 Set cursor 
Select pen 1 
Select pen 2 
Select pen 3 


Highlight null characters 


CTRL/Commodore 0-9 


*-OT-ZNOVNAMzroUC 


CLR/HOME 
SHIFT-U 

| SHIFT-D 
SHIFT-L 

| SHIET-R 
SHIFT-F 

SHIFT-B 

| SHIFT-G 
SHIFT-S 
SHIFT-CLR/HOME 
INST/DEL 
SHIFT-INST/DEL 
g 


| SPACE BAR 
| + 


Change active pen color 
Shift image one character up 
Shift image one character down 
Shift image one character left 

_ Shift image one character right © 
Flip image horizontally 
Garbage collection (also clears buffers) 
Increment background color 
Increment grid color 
Increment sprite color 
Toggle between hi-res and multicolor mode 
Copy image to buffer 
Copy image from buffer to current frame 
Copy current character into minibuffer 
Copy character from minibuffer to current character 
Moves the cursor to the top left corner 
Shift image one pixel up 
Shift image one pixel down 
Shift image one pixel left 
Shift image one pixel right 
Flip image vertically 
Decrement background color 

_ Decrement grid color 
Decrement sprite color 
Erase current image 
Delete current frame 
Insert new frame 
Null current character 
Clear current character 
Move to next frame 


_ Move to previous frame 
N Jump to selected frame 


RUN/STOP Exit to BASIC 


} 


STAMP n,x,y 
ERASE n,x,y 
DLOAD “filename” 
DSAVE “filename” 
CLEAR 
MULTIC mel1,mc2 





characters are displayed with a 
checkerboard pattern, while empty 
characters appear as spaces, Press C 
to remove empty characters; then 
press fl to return to the normal 
display. 


Animation 

To animate your shapes, you'll 
need to create an image, copy it to 
the next frame, make changes to it, 
copy the new image to the next 
frame, and so on. This is a difficult 
task to do by hand. Fortunately, 
CHR3S Graphics handles most of 
the work for you. 

To move to the next frame, 
press the + key. The — key moves 
you to the previous frame. To move 
quickly to distant frames, press N. 
CHR$ Graphics prompts you for a 
frame number. Type in the frame 
number. Notice how the frame 


Draws an image on the screen 
Erases an image on the screen 
_Loads an image file from disk 
Saves an image file to disk 
Erases images from memory 

Sets the multicolor pen colors 


number's digits rotate right to left. 
CHR$ Graphics always displays 
the frame that corresponds to this 
number. For example, let’s say 
you're viewing frame 216 and wish 
to move to frame 67. Press N and 
begin entering the numbers 6 and 
7. As you enter the numbers, CHR$ 
Graphics briefly displays frame 166 
and then frame 67. Press a non- 
numeric key, such as RETURN, 
when you're satisfied with the cur- 
rent frame. 

Copying the image to another 
frame is done by using a buffer. The 
buffer is just a temporary storage 
place for an image while you move 
to another frame. To copy an image 
to the buffer, press I. To retrieve an 
image from the buffer, press O. For 
example, to copy an image from 
frame 5 to frame 6, move the cursor 
to frame 5. Press I to store the image 


to the buffer; then press the + key 
to move to frame 6. Press O to re- 
trieve the image from the buffer 
and then store it in frame 6. 

In addition to the image buffer, 
CHR$ Graphics has a smaller char- 
acter buffer. Press fT to save the 
character the cursor is in to the 
character buffer. The contents of 
the character buffer is displayed 
over the top left corner of the im- 
age, Press * to copy the character 
from the character buffer to the 
character the cursor is in. 

Note that both the image and 
character buffers are cleared when 
garbage collection occurs. Also, 
when using the buffer, be careful 
not to copy part of a multicolor 
frame into a high-resolution frame. 
This would confuse the program. 

To test your animation, hold 
down the + or — key to quickly 
flip through each frame. This 
should give you a good idea of 
what the animation will look like in 
a program. 


Erasing the Image 
CHR$ Graphics provides a variety 
of commands for erasing, deleting, 
and inserting images. Press £ to 
erase the character the cursor is in. 
Press the space bar to copy a space 
to the character the cursor is in, 
(Spaces may be useful later when 
you use your image within a pro- 
gram. Unlike null characters, 
spaces are actually copied to the 
screen by CHR$ Graphics’ STAMP 
command, discussed later. This 
way, spaces help erase whatever 
was previously on the screen.) 
Press SHIFT-CLR/HOME to 
erase the current image and leave it 
blank. If you want to get rid of the 
image frame altogether, press DEL. 
This deletes the current frame and 
renumbers the rest of the frames to 
fill the gap left by the deleted 
frame. To insert a new frame, press 
SHIFT-INST/DEL. The other 
frames are renumbered to make 
room for the new frame. Use this 
command with care, because the 
image in frame 255 will be lost. 


Errors 

In addition to the OUT OF CHRS 
error mentioned previously, you 
may also get an OUT OF MEMORY 
error if there is no more room in 
CHR$ Graphics’ internal storage 
area to add another frame. If you 
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get this error, you'll have to delete a 
frame or press RUN/STOP to re- 
turn to BASIC. With over 15,000 
bytes of available memory, OUT 
OF MEMORY errors are rare. 

Press RUN/STOP to return to 
BASIC. Don’t panic if you can’t see 
the cursor! You may have redefined 
one of the reversed characters used 
to display the cursor when you de- 
signed a frame. It's a good idea to 
press C to force garbage collection 
before leaving the editor. This will 
make the invisible-cursor problem 
less frequent. 


BASIC Commands 


Once your images have been creat- 
ed, you're ready to use them in your 
programs. CHR$ Graphics adds six 
BASIC commands to make this easy. 

The command STAMP 1u,x,y 
draws an image on the screen, 
where n is the image’s frame num- 
ber, x is the column number (0-39) 
of the upper left corner of the im- 
age, and y is the row number (0-24) 
of the upper left corner of the im- 
age. If you use coordinates outside 
the legal ranges, CHR$ Graphics ig- 
nores that command. While testing 
your images, use the command 
STAMP n,0,0 to make sure that 


your image appears on the screen. 

The command to erase an im- 
age from the screen is ERASE 
n,x,y. As with the STAMP com- 
mand, n is the image’s frame num- 
ber, x is its column position, and y is 
its row position. The image is 
erased by stamping spaces over it. 

The DSAVE command saves 
your image definitions. Its format is 
DSAVE “filename”, where filename 
is the name of the file the definitions 
will be saved to. The command to 
load an image-definition file from 
disk is DLOAD. Its format is 
DLOAD “filename”, where filename 
is the name of the image-definition 
file to load. 

The CLEAR command discards 
all image definitions. Use it only 
when you've saved the definitions 
or when you want to start over, Im- 
ages cannot be “unCLEARed.” 

The last command CHR$ 
Graphics adds to BASIC is the 
MULTIC command. MULTIC sets 
background colors 1 and 2 for 
multicolor mode, Its syntax is 
MULTIC mcl,mc2, where mcl1 is 
background color 1 and mec2 is 
background color 2. 

Examine CHR$ Graphics’ 
demo Progiany Program 4, to see 


DUST COVERS 


Satisfaction 


Covers To Your 
Dimensions For 
All Types of 
Diarusttenoll 


e Custom Made 

| @ Heavy 32 oz. vinyl 

® Colors: Tan or Brown 

® Quantity Discounts Available 


COMPUTERS 
C-64 
C-64C 
C-128 
C-128D CPU 
C-128D KEYB'D 
AMIGA 500 
PC-10 CPU 
PC-10 KEYB'D 


C-1571 
C-1581 


C-1541-II 


DISK DRIVES 
C-1541/C 


AMIGA 3.5 
ENHANCER2000 
FSD-1, -2 


Cyvisleslalteise 


how many of these commands may 
be put to use. 


Hints and Tips 

CHR$ Graphics is limited to using 
196 redefined characters. Occasion- 
ally, you may need more than this, 
For example, you may be working 
on a game with many animated 
characters and levels. This problem 
can be solved by creating a different 
character set for each level of the 
game. Since a CHR$ Graphics file is 
relatively small, a new character set 
can be quickly loaded using the 
DLOAD command. 

By default, CHR$ Graphics 
works in multicolor mode, which 
allows you to use both hi-res and 
multicolor graphics; the only price 
you pay is that instead of having 16 
colors available, you have 8. If 
you'd prefer to work in hi-res mode 
exclusively so you can access all 16 
of the 64’s colors, load CHR$ 
Graphics and enter this line: 

POKE 2210,200 

Now when you type SYS 31744, 
you'll have access to all 16 colors, 
but the f3, f5, £7, and M keys will be 
disabled. 


See program listings on page 76. G 


NEW  ULTRABYTE 


DISK 
V6.0 wisBLer 


NIBBLE COPIER WITH 305 PARAMETERS 
FOR COMMODORE 64 AND 128 


® Copies most protected disks in 2 minutes without 


need for parameters including rapid-locked 


@ 305 parameters to make unprotected copies of recent 
progam including VMAX protection. 100 more than 


Send stamped envelope for list 


@ Copies up to 40 tracks using 1 or 2 1541 or 1571 
drives. Copies both sides on 1571 


® Copies itself (for this reason, no refunds given) 


V6.0 $29.95 PLUS $4.00 SHIPPING 


PRINTERS 


MONITORS 


C-1702 
C-1802/CM141 
C-1902/AMIGA 
C1902A/MAG40 
C-1084 
C-2001,2 
CM-8762 
CM-1802A/8502 


VCR's 


Order by stating make, model & color choice Tan or Brown with ch 
M.O. plus $2.00 per item ($5.00 max.) ship. & handl. CA res. add 6 
|} CODs $3.00. 


CROWN CUSTOM COVERS 
Dept CG-7, 24621 Paige Circle 


(All Makes) 
Dot Matrix 10” 
Carnage 
Dot Matrix 15” 
Carriage 
VCR's 


(Dimensions of VCR and clock 
cut out required.) 

SEND DIMENSIONS FOR QUOTES 

ON COVERS NOT LISTED 


. Ultramail -- 
$13.00 


$16.00 


$13.00 


. Disk Surgeon V2.0 -- new disk utility 
mail list and labels 
Handy-Capper -- 
. McMurphy’s Mansion -- 
Soluware -- solutions to 10 adventures... . 
. 150 older parameters and file copier 
Add $4.00 shipping (covers up to 5 items) 


Mastercard, Visa, Check or M.O.,, Calif, add 6.5% ($1.85) sales tax. 
Foreign orders/COD add $2.00. Payment must be in U.S. funds 


both for 
$10.00 

both for 
$10.00 


race handicapper 
text adventure.... 


UPDATES - V6.0 is same as V5.0 but with 100 new parameters. 


plage 


Laguna Hills, CA 92653 (714) 472-6362 


Return original Ultrabyte parameter disk with $15.00 plus $4.00 
shipping. Foreign add $2.00. No exceptions. 
To order, write or call 24 hr. order line. For info. write. 
ULTRABYTE (818) 796-0576 
P.O. Box 789 LaCanada, CA 91011 USA | 
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¥In the last ten years, the world of 
personal finance has become in- 
creasingly complex. Almost daily, 
you face tough financial questions: 
How much of your paycheck 
should you save? Should you buy or 
lease a car? How much can you af- 
ford in monthly payments for a 
new car? How much life insurance 
should you carry? Are you saving 
enough for your children’s college 
education? What kind of mort- 
gage—fixed or adjustable rate—is 
right for you? Should you refinance 
your mortgage? Should you deposit 
money in an IRA this year? 

Questions like these often re- 
quire the opinion of an expert. 
However, with “Financial Plan- 
ner,’” you may be able to get some 
answers without having to consult 
a financial analyst. Not only does 
this comprehensive program per- 
form a variety of common financial 
calculations, but it also features a 
built-in calculator for quick figuring 
or for what-if projections. 


Getting Started 
Financial Planner is written entirely 
in BASIC, so be sure to use “The 
Automatic Proofreader,’’ found 
elsewhere in this issue, when typ- 
ing it in. Although the program is 
fairly long—just over 21K—it’s di- 
vided into modules so that you can 
type in only the parts you need. The 
only requirement is that you in- 
clude lines 10-1950, which contain 
the main menu, the built-in calcula- 
tor, and some common subroutines. 
When you run the program, a 
menu of eight options appears; each 
option has its own module. To help 
you determine which modules to 
type in, an overview of each is pre- 
sented below. If you read the de- 
scription of a module and then 
decide you don’t need it, replace the 
first line of the module (which reads 
REM—) with the line GOTO 400. 


















Need some help 
sorting out your 
finances? This 
versatile and powerful 
program for the 64 
may provide the 
answers you’ve been 
looking for. 


For example, suppose you're 
not interested in the College Plan- 
ning module (lines 2000-2999). To 
prevent it from being accessed from 
the menu, enter line 2000 as 


2000 GOTO 400 


Then continue typing with the next 
module. The line numbers are list- 
ed as x000-x999 to help the user re- 
member them. The actual line 
numbers will be different. For ex- 
ample, the College Planning mod- 
ule actually runs from 2000 to 2340. 
Following are the eight menu 
options offered by the program. 


1. College Planning (lines 2000- 
2999), Calculates the amount you 
need to save each year to pay for 
your child’s education. Also deter- 
mines the total amount you could 
set aside today to pay for the future 
cost of college. 


2. Car Buy/Lease (lines 3000- 
3999). Determines how much it 
really costs you to finance or lease a 
car over the same period. Also 
helps you compare a rebate to a 
lower finance rate, Outputs total 
costs and real costs adjusted for in- 
flation. Displays the monthly pay- 
ment when you finance. 


3. Compound Interest/Savings 
(lines 4000-4999). Helps you plan 
your savings. Determines how long 
and how much you have to save 
each month to have enough for that 
trip to Europe. Calculates any one 
of five variables (present value, 
monthly addition, annual yield, 
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number of years, and future value) 
when you enter the other four. 


4, Loan Payments (lines 5000- 
5999). Lets you figure out whether 
you can afford a new car, Apartment 
dwellers can see how much house 
they can buy with the money cur- 
rently going toward rent. Helps you 
identify any hidden charges (like life 
insurance) tagged onto a prospective 
loan, Calculates any one of four 
variables (amount borrowed, inter- 
est rate, number of monthly pay- 
ments, and monthly payment) 
when given the other three. 


5, Fixed/Adjustable Rate Mort- 
gage (lines 6000-6999). Designed 
for home buyers, this module helps 
you decide which type of mortgage 
is right for you. Adjustable rate 
mortgages, or ARMs, usually start 
with a lower rate, but can end up 
costing more in the long run if rates 
rise, Calculates payments and break- 
even times using two scenarios. 


6. Life Insurance Needs (lines 
7000-7999). Financial Planner takes 
into account a number of factors (see 
below) and suggests a policy (term, 
universal, or whole) based on your 
age, income, and savings. 


7. Refinancing Your Mortgage 
(lines 8000-8999). Many houses 
were purchased when mortgage 
rates were 12 or 13 percent. This rou- 
tine checks to see whether interest 
rates have come down far enough to 
refinance. It calculates the cost and 
break-even time (how long you must 
keep your house) before it makes 
sense (is profitable) to refinance. 


8. IRA Planning (lines 9000-9999). 
Financial Planner compares a sav- 
ings program in an IRA to a nonshel- 
tered savings account. It helps you 
decide, on this basis, whether to con- 
tribute to your IRA this year. For 
most people, the answer is a defini- 
tive Yes, but what if you need the 
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money to buy a house or pay for tu- 
ition in five years? This routine calcu- 
lates how long it takes before early 
withdrawals (considered along with 
the penalty and taxes) are feasible. 


Some General Considerations 

Run the program and select one of 
the eight options. (Remember, any 
option you've omitted won’t func- 
tion.) A screen will appear with a list 
of variables and their default values. 
To change the value of a particular 
variable, move from one input field 
to another using the cursor-up and 
cursor-down keys. The current input 
field is shown in inverse. When 
you've reached the variable you wish 
to change, enter a new number and 
press RETURN. If you need to clear 
an input field, press the space bar or 
the CLR/HOME key. 

Each module works in a similar 
manner; enter your values or use the 
defaults, and then press f1 to per- 
form the calculation. After the result 
is displayed, press f1 to enter another 
set of values, f3 to print the screen, or 
« (back arrow) to return to the main 
menu. Press « from the menu to exit 
the program. 

As noted, Financial Planner 
comes with a built-in calculator. To 
access it from the main menu or from 
within a module, press C. Then type 
in a formula, such as 4000*.075 
(4000 times .075). To edit your entry, 
use the DEL key. (Note that the cur- 
sor keys do not function in this 
mode.) When you've entered your 
formula, press RETURN to execute 
the calculation and display the result. 
Then press C or + to exit the calcula- 
tor. (You can also exit the calculator 
by pressing =; this causes the cur- 
rent equation and result to be dis- 
played at the top of the screen.) 

Interest and inflation rates fluc- 
tuate; there is no way to know what 
future rates will be. The default rates 
used in the program are up-to-date 
as of this writing (March 1989). LISA 
Today and Money Magazine publish 
current interest and inflation rates. 
To find out what rates of interest 
banks are charging, look in the busi- 
ness section of your local newspaper. 

The annual rate of inflation is a 
factor in several modules. Typical- 
ly, the Consumer Price Index (CPI) 
is used to measure the overall rate 
of inflation. For each of the past two 
years, the Consumer Price Index 
has risen by 4.4 percent. However, 
certain prices—such as those for 
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college tuition—have been rising 
faster. You may wish to take this 
into consideration with option 1 
(College Planning). 

Since Financial Planner uses 
BASIC 2,0 math routines in its cal- 
culations, results may sometimes 
be off by a few cents. For this rea- 
son, program input is limited to 
whole dollar amounts. 

Although Financial Planner 
has endured extensive testing, we 
don’t recommend you make any fi- 
nal decisions based on this program 
alone. Instead, use the results it 
provides as a guide. 

Let’s now discuss the individ- 
ual input variables used in each 
module and how to interpret the 
program's output. 


College Planning 


Today’s annual cost. According to 
the Wall Street Journal, annual ex- 
penses for private colleges are 
about $11,500 a year; this includes 
room, board, tuition, and books. 
State colleges cost about $4,500 a 
year for an in-state student. How- 
ever, if you’re considering an Ivy 
League school, current costs are 
about $17,500 a year. 


Inflation rate. The inflation rate for 
college costs has run about 7 per- 
cent over the last two years. But in- 
flation has a way of leveling out, so 
the default rate of 4.4 percent is not 
unrealistic. 


Years until college. Many children 
enter college at the age of 18. Thus, 
if your child is 7 years old, enter 11 
on this line. 


# years in college. Typical choices 
are 4, 2, or 6. 


Present savings. This is how much 
you've saved specifically for col- 
lege; don’t include money saved for 
other things. 


After tax yield. This is the rate of 
interest your money’s earning after 
taxes, Interest rates are impossible 
to predict, so we use a current rate. 
The default rate of 7.35 percent is 
the yield that U.S, Savings Bonds 
are currently paying. 


Beginning in 1990, interest on 
newly purchased savings bonds 
will be tax-exempt if the redeemed 
bonds are used to pay for tuition 
and your income is less than 
$90,000 a year. Savings bonds are 
available at major banks and can be 


purchased in $25 units. If you do 
use savings bonds, count the cost of 
the bond, not its face value (a $100 
bond costs you $50) toward the 
amount you need to save each year. 
If you do not go the savings 
bond route, use Financial Planner’s 
built-in calculator to figure out the 
after-tax yield. For example, you've 
put the money into 5-year CDs (cer- 
tificates of deposit) yielding 9 per- 
cent and you're in the 28-percent tax 
bracket. Press C to activate the cal- 
culator, Now, enter 1—28/100. The 
calculator displays .72 as the result. 
Continue by entering *9 to multiply 
by 9. You'll see that the after-tax 
yield is 6.48. Press = to exit the cal- 
culator; then type in the value. 


Output. Recommends how much 
to save each year to meet your goal. 
Several colleges are offering pre- 
payment plans, where you deposit 
money with them today to pay for 
tuition when your child reaches 
college age. See how the results 
from Financial Planner compare 
with these plans. 


Car Buy /Lease 

Buying a car usually requires more 
up-front money and higher month- 
ly payments, but is cheaper in the 
long run than leasing. Leasing re- 
quires a big payment at termination 
to buy the car. If you don’t have 
money for a down payment or can’t 
afford a higher monthly payment, 
leasing may be the way to go. And 
Financial Planner tells you just how 
much leasing that dream car will 
cost you. 

When you purchase a car, 
many promotions give the choice of 
a cash rebate or a lower finance 
rate. By changing the finance terms 
and ignoring the lease portion of 
this module, you can compare the 
real costs of each. 


Inflation rate. Again, the default 
rate is 4.4 percent (see previous 
option). 

BUY 

Price of car. Cash price for the car 
you want to buy. 


Financing. Can be Yes or No, If you 
select No, the next three lines are ig- 
nored so that the total and real costs 
are simply the price paid. 

Trade-in/down payment. How 
much the dealer gives you for your 
old car and/or the amount of cash 


you put down. 


Annual % rate. Auto loans from 
banks on new cars run about 12 
percent. Rates on used cars are 
often higher; 13.9 percent or even 
16 percent is not uncommon. Car 
dealers often offer special promo- 
tions with lower rates or a cash 
rebate, 


# of monthly payments. How 
much time it will take you to pay off 
the loan. Loans on new cars usually 
run 48 or 60 months. Loans on used 
cars are typically 30 or 36 months. 


LEASE 


Refundable security deposit. This 
is returned to you at the expiration 
of the lease, but all that time erodes 
the value of your money. 


Initial payment. The amount you 
pay before you get the keys, which 
is not refunded, Many leases call for 
first and last payments to be made 
at the beginning of the lease. If this 
is the case, include the last payment 
here and subtract one month from 
the length of the lease (# of pay- 
ments, below). 


Monthly payment. What you pay 
each month, rounded off to the 
nearest dollar. 


# of payments. Leases usually run 
48 or 60 months, Remember to sub- 
tract 1 if the last payment is made at 
the start of the lease. 


Buy out price. At the end of the 
lease, you have the option to buy 
the car. To make the comparison 
with owning a car valid, Financial 
Planner assumes you buy the 
leased car. 


Output. The total of all costs for 
buying and leasing are displayed 
along with the totals adjusted for 
inflation. The monthly payment for 
financing is also shown. 


Compound Interest/Savings 
This module is a little different. It 
calculates any one of five variables 
when you provide the other four. 
Be sure you move the cursor to the 
value you want to calculate. 


Present value. The amount that’s 
presently in your account. 


Monthly addition. How much you 
plan to deposit each month. 


Annual yield. The default rate is 
what banks currently pay on mon- 
ey market accounts. This rate 


changes often; it was below 6 per- 
cent a year ago. 


# of years. How long you plan to 
make the monthly addition. 


Future value. Your account bal- 
ance after all deposits have been 
made. 


Output. Reported in terms of one 
of the five variables. 


Loan Payments 

Much like the previous module, 
this one calculates any one of four 
variables when you provide the 
other three. Renters can see how 
much mortgage they can afford 
based on their rent. For example, to 
do this for a 30-year mortgage, en- 
ter monthly rent as the Monthly 
payment, 360 for # of monthly pay- 
ments, and the current mortgage 
rate for Interest rate. Then move the 
cursor up to Amount of loan and 
press fl. 

To print out a loan payment 
schedule, press f5 and enter the 
starting date for the loan. This 
printout gives you the outstanding 
balance of the loan for any date, It 
also shows how much of each pay- 
ment goes toward principal and 
how much is for interest. 


Amount of loan. How much do 
you want to borrow? 


Interest rate. Prevailing rates on 
home equity loans are about 11.5 
percent; rates for unsecured per- 
sonal loans are closer to 18 percent. 


# of monthly payments. How long 
before you pay off the loan? 


Monthly payment. Amount of 
each payment. This is what most 
people want to calculate. 


Output. Reported in terms of one 
of the four variables. 


Fixed / Adjustable Rate Mortgage 
For most of us, this can be a very 
complex and confusing subject. 
Fixed rate mortgages have been 
around for many years and are the 
most popular. Adjustable rate 
mortgages (ARMs) are relatively 
new, Their rate of interest is tied to 
a benchmark rate like the prime or 
the five-year Treasury bill rate. If 
interest rates go up or down, so do 
your payments, 

In general, ARMs are good 
when you sell quickly or interest 
rates go down. ARMs usually start 
with a lower interest rate, but can 


end up costing much more than a 
comparable fixed rate mortgage if 
interest rates go up. Some ARMs 
have an artificially low rate the first 
year, If you are considering an 
ARM, take a good look at the worst- 
case scenario. If the payments make 
you shudder, you may want to stick 
with a fixed rate mortgage. 


Principal. This is the amount you 
want to borrow. The average price 
of a house nationwide is $115,000. 


Points. A percentage of the princi- 
pal, paid when you initiate the 
mortgage. 


FIXED RATE MORTGAGE 


Annual % rate, Rates today are 
about 10.86 percent for a 30-year 
mortgage and 10,68 percent on a 
15-year mortgage. 


# of years. Thirty-year mortgages 
are very popular, as are those with 
15-year terms. 


ADJUSTABLE RATE 
MORTGAGE 


Initial interest rate. The rate for 
the first year of the mortgage. 


Yearly cap. The maximum amount 
the interest rate can increase in one 
year; most ARMs have a 2-percent 
yearly cap. 


Lifetime cap. The highest the rate 
can be over the life of the mortgage. 
Fourteen percent is the most com- 
mon cap. 


# of years. For the sake of compari- 
son, this should be the same as the 
length of time for the fixed rate 
mortgage. 

Output. After you've read the re- 
sults, press f5 for more analysis. 
The initial results include monthly 
payments for each type of mort- 
gage. Financial Planner does not 
handle biweekly payments or other 
alternative payment schedules. 


Two different scenarios are 
used to figure out future payments 
on the ARM. The first has interest 
rates rising 0.5 percent a year. The 
second is the worst-case scenario, 
with rates going up the maximum 
each year until the lifetime cap is 
reached. ARMs were good to have 
over the last three years, as interest 
rates remained low. With the possi- 
bility of higher rates, consider the 
worst-case scenario, 

Further analysis displays the 
break-even times for the ARM in 
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Canada & Puerto Rico-add $7.50 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges. CUSTOMER 
SERVICE HOURS: Mon-Fri. 9 AM-5:30 PM Eastern Time, REASONS FOR CALLING CUSTOMER SERVICE—412-361-5291 (1)Status of order or back order (2)if any merchandise purchased 
within 60 days from $,D.of A. is defective, please call for a return authorization number, We will not process a return without a return auth. #t Defective merchandise will be replaced with 

the same merchandise only, Other returns subject to 4 20% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the product purchased & 
return directly to the manufacturer. Customer service will not accept collect calls or calls on §.D of A.'s 8008 order lines! Prices & availability are subject to change! New tithes are arriving 
daily! Please call for more information. 


MODEM OWNERS: You can order on-line trom our Commodore Shop via the ¢ ompuserne, GEow wd O-Link electronic malls, 








PO) BAY E-V 1am DIK GOO Bia a 
OF AMERICA 


USA/Canada Orders—1-800-225-7638 
PA Orders—1-800-223-7784 
Customer Service 412-361-5291 


e Free shipping on orders 

over $100 in continental USA 
° No Surcharge for VISA/MasterCard 
e Your Card is not charged until we ship 


S.D. of A. 


ORDER LINE HOURS: Mon.-Thurs. 9:00 AM-9;00 PM Fri. 9:00 AM-7:00 PM Sat. 10:00 AM-4:00 PM Eastern Time.. 
CANADIAN CUSTOMERS CAN NOW ORDER TOLL-FREE 


ABACUS BOOKS 

Anatomy of the 1541 .$14 
Anatomy of the C64, .$14 
1571 Internals.......$14 
GEOS Inside & Out ..$13 
GEOS Tricks & Tips ..$13 
ABACUS SOFTWARE 
Assembler Monitor ...$25 


Basic .....eun ae Fs 
Basic 128 ...0.000es $39 
*Becker Basic ....... $33 
Cad Pakssiseccecees $25 
Cad Pak 12H.......5 $39 


Chart Pak 64 or 128925 Ea. 
Cobol 64 or 128. .$25 Ea, 
Fortram wo cue eee BES 
PRM lecsccaeee sae $25 
PPM VW2B wie $99 
Speed Term 64 or 128 $25 
Super C 64 or 126 $39 Ea. 
Super Pascal 64 or 126539 Ea. 
TASH cua w itd sik eta eee 
VAS 1 £0 ca eniadeas $49 
"Requires GEOS! 


ACCESS 


Echelon wiLip Stik ...$29 
Heavy Metal........$25 
Leader Board (Original) 
SPAM cevicbrreet Si4 
Tenth Frame ........ $25 
Triple Pack: BH1, BH2, 
Raid Over Moscow .$14 
World Class 1.8. Golf .$25 
World Class L.B. Golf 
Fam. Course 1,2 of 3$14 Ea 


ACCOLADE 
Bubble Ghost ....... $19 
Fast Break .......... $19 


§ 4th & Inches Football .$19 


4th & Inches Team 
Construction Disk. $9.88 

Grand Prix Circuit .. .$19 

Jack Nicklaus Golf ...$19 


B Mini Putt........... $19 


Rack “Em...c.-s005% $19 
i Serve & Volley ...... $19 
Test Drive .......... $19 


Test Drive 2: The Duel$19 


§ T. Drive 2: Calif, Scenery$9.88 


T. Drive 2 Super Cars$9.88 
The Train .......55. $19 
TA Giteainiasiceaweee $19 
ACTION SOFT 

Thunder Chopper... .$19 


Up Periscope! ....... $19 
ACTIVISION 

Black Jack Academy . .$25 
Chop ‘N Drop....... $19 
Crossbow .....0 00s $19 
Faery Tale Adventure .$25 
Fi4 Tomecat......... $25 


F186 Hornet.........$23 
Last Ninja lor 2 $23 Ea, 


i Mainframe..........$23 


Maniac Mansion... .. $25 
Might & Magic 1 or 2$25 Ea, 
Neuromancer ....... $25 
Ocean Ranger.......$25 
Rampage .......5.5: $23 
Sky Travel...... rere $3 
Zak McKracken......$23 


| AMERICAN EDUCATIONAL 


§ Biology .....-... -+s912 


Learn to Read (Gr. 1-4)$25 
Science: Grades 3/4 . .$12 


§ Science: Grades 5/6 ..$12 


I New tithes are arriving daily! Please call for more information. 


MODEM OWNERS: You can order ondine from our Commodore Shop via the CompuSserce, 







Science: Grades 7/B ..$12 


US Geography ...... $12 
US History .........$12 
World Geography... .$12 
World History.......$12 
ARTWORK 
Bridge 5.0.......000. $19 
Cycle Knight........$14 
Daily Double 

Horse Racing......$14 


Linkword Languages$16 Ea, 
Strip Poker ........-. $21 
Data Disk #1 Female .$14 
Data Disk #2 Male ,..$14 
Data Disk #39 Female .$14 
AVALON HILL 


NBA Basketball......$25 
Spitfire ‘40 ......... $23 
Super Sunday ....... $21 


SBS Gen. Mer, Disk ..$19 
SBS 1987 Team Disk .$14 
Under Fire ........+ $23 
BATTERIES INCLUDED 


Paperclip Publisher, ..$33 


Paperclip 3 ..... eet 
BAUDVILLE 

Award Maker Plus ... $25 
Blazing Paddles......$23 


Rainy Day Games... . $19 
Video Vegas ........$19 
BERKELEY SOFTWORKS 


Geos 1287.0 ....... $44 
Geo-Calc 128 .......§44 
Geofile 128........$44 
Geos 64 (2.0) .......$39 
*Desk Pack Plus..... $19 
*Font Pack Plus ..... $19 
*GeoeChart ......... 519 
*"GeoCale .....ee0re $33 
"Geo File ..........$33 
*Geo-Programmer ...$44 
*Geo-Publish,.......$33 


"Requires Geos 64! 
BOX OFFICE 


California Raisins ....$16 
PaychO......500005, $16 
BRODERBUND 

Bank St. Writer...... $33 


Carmen Sandiego: 
Europe ......020.-$25 


LIAS a's pean om ste $25 
WON oc eee cee $23 
Print Shop... ee $26 
P.5. Companion ..... $23 


P.5. Graphics Library 

#1, #2, or #3... .$16 Ea, 
P.S. Graphics Library 

Holiday Edition ....$16 
1 |) Pe Eee $19 
Star Wars ...-.645+ $19 
Toy Shop......+..+ $19 
CAPCOM 
Bionic Commando ...$19 
Ghosts & Goblins ....$19 
Gunsmoke..........$179 
Side Arms Hn Ree DE 
Speed Rumbler ......$19 
Copy 2 sae se aes $23 


CINEMAWARE 
Delender of the Crown$23 
Rocket Ranger. ...... §23 


The Three Stooges ...$23 
Warp Speed (R)......$33 
CMS 


General Acct, 128 .. 





Inventory 128.......$49 
COSMI! 
CFMTW sek pe baie oo $16 
Home Office........ 625 
Navooméo.......... $19 
Navy Seal .......... $19 
Presumed Guilty! ....$16 
Super Huey 2....... $14 
DATA EAST 
Bad Dudes ......... $19 
Batman ....sccaeeen $16 
Breakthru ........05 $19 
Commando .......55 $14 
Guerrilla War.......$19 
Heavy Barrel........$19 
Ikari Warriors .......$19 
Barmy voce eee BD 
Platoon ............ $79 
RoboCop........... $23 
Speed Buggy ...... ..$19 
Tag Team Wrestling ..$14 
Victory Road........ $19 
DATASOFT 
Alternate Reality: 

The City ......06. 6579 

The Dungeon......$19 
Bismarck ...........$19 
Cosmic Relief ....... $19 
Firezone ..... eae: $19 


Global Commander ..519 
Hunt for Red October $26 


Lancelot ........... $71 
Rubicon Alliance... .. $14 
Time & Magik ....... $21 


Video Tithe Shop wi 
Graphics Companion$21 


DAVIDSON 

Algeblaster ......... $32 
Math Blaster ........ $32 
Spell It... eee ee S92 
Word Alfack........ $32 
DESIGNWARE 

Body Transparent ....519 
Designasaurus...... $23 
Spellicopter......... $19 
DIGITAL SOLUTIONS 
Pocket Filer 2.......523 
Pocket Planner 2 ....$23 
Pocket Writer 2 .....$33 


"All Jin 1 Super Pack $59 
DIGITEK 

Hollywood Poker ....$19 
Western Games ..... $19 
ELECTRONIC ARTS 

Bard's Tale 1, 2? or 3$26 Ea. 
Bard's Hints 1, 2 or 3$9 Ea. 
Battles of Napolean ..$32 
Caveman Ugh-lympics $21 
Chessmaster 2100... .$26 
Chuck Yeager’s AFT ..$23 
Demon Stalker ,.....$27 
Double Dragon...... $23 
Dragon's Lair .......$19 
jordan vs, Bird ,.....$21 
Magic Candle ....... Call 
Modem Wars .......$23 
Power Play Hockey ..$19 


Project Firestart ..... $21 
Skate or Die ........ $21 
Star Fleet 1......... $26 
Strike Fleet ......... $21 
The Mars Saga ......$23 
Wasteland.......... $16 
EPYX 

Axe of Rage ........Call 
Battleship .......... $19 


P.O. BOX 111327—DEPT. CG—BLAWNOX, 
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California Games ....$24 


Create A Calendar ...$19 
Death Sword........5179 
Destroyer oo... eee S14 
Dive Bomber........ $i4 
Fast Load (R)........ $24 
Final Assault ........ $14 


4x4 Off Road Racing $14 
Impossible Mission 2 .$14 


LA. Crackdown ..... $14 
Legend of Blacksilver .$24 
Moetrocnoss .........516 
Mindroll ...........$24 
Space Station Oblivion $14 
SporteA-Roni ....... Slb 
Street Sports: 
Baseball..........814 
Basketball,........$14 
Football ..........$14 
Soccer ..... datnats a4 


Sub Battle Simulator. .$14 
Summer Games... ... $14 
Summer Games 2... .$14 
Technocop ......... $24 
The Games: 

Summer Edition... . $24 

Winter Edition,....$24 
Tower Toppler ......$24 
Winter Games,...... $74 
World Games .......$14 
FIRST ROW 


Honeymooners ......$19 


Star Empire.........$16 
GAMESTAR 
Take Down ......... $19 
INFOCOM 
Batiletech ..........$25 
Zork Trilogy ...... . 529 


INKWELL SYSTEMS 

2170C Deluxe LP, ...$69 
#184C Light Pen..... $44 
Flexidraw 5.5 .......523 
Graphics Galleria #1 .$19 
Graphics Galleria #2 .$19 
Graphics Integrator 2 .$19 
INTRACORP 

Bumper Sticker Maker $33 
Business Card Maker .$25 
Button & Badge Maker$33 
Ukimate Casino Gambling$23 
LOGICAL DESIGN 

Club Backgammon ...$19 


Vegas Craps ........$19 
Vegas Gambler ......$19 
MASTERTRONIC 
Monopoly ..........$26 
Reais pase ialary $26 
Scrabble ...5...4.5 $23 
Scrupples...........$23 
MEDALIST 


Pro Soccer ......5++$25 
Pure Stat Baseball... .$25 
MELBOURNE HOUSE 

Barbarian .......... $19 
John Elway’s QB.....$19 
War in Middle Earth. .$33 


MICROLEAGUE 
Baseball... ....6.... $25 
Box Score Stats...... $16 


87 or 86 Team Disk$14 Ea. 
General Manager ....$19 
WWE Wrestling .....$19 
WWF Superstars Vol. 1$14 
WWF Superstars Vol. 2$14 
MICROPROSE 

Airborne Ranger .....$23 





PA 15238 


Your Order: Orders with cashiers check or money order shipped immediately on in stock items! Personal 
| & Company checks, allow 3 weeks clearance. No C.O.D."s! Shipping: Continental U.5.A.-Orders under $100 add $3; free shipping on orders over $100, AK, HI, FPO, APO-add $5 on all 
| orders. Canada & Puerto Rico-add $7.50 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges, 
| CUSTOMER SERVICE HOURS: Mon.-Fri. 9 AM-5:30 PM Eastern Time. REASONS FOR CALLING CUSTOMER SERVICE—412-361-5291 (1)Status of order or back order (2)if any merchandise 


F-15 Strike Eagle... .. $25 
Gunship. ....sescees $23 
Pirates... ceees soa $25 


Project Stealth Fighter $29 
Red Storm Rising ....$25 


Silent Service .......$25 
MINDSCAPE 

720 Skateboarding ...$23 
Action Fighter....... $19 
Alien Syndrome .....$23 
Aussie Games .. 2... $19 


Bad Street Brawler ...$19 
Blockbuster ,........$19 
Captain Blood....... $23 
Clubhouse Sports ....$19 
Color Me: The Computer 
Coloring Kit. ...... $23 
Combat Course..,..,$19 
Crossword Magic ....$19 
*Deeper Dungeons... .$16 


De Ja Vu....... roveSad 
Gauntlet .... cee $29 
Harrier Combat Sim. .$19 
Hostage... essences $19 


Indiana Jones & The 
Temple of Doom... .$23 


Indoor Sports... 640. $19 
Infillrator 2.........$99 
Int'l Team Sports... .. $19 


Set. Shughters Mat WarsCall 
Into the Eagle's Nest, $19 


Joker Poker......... $19 
MISL Soccer ........ $23 
Out Run oo. cee eee G23 
Paperboy... 60.6655. $23 


Perfect Score SAT... .$44 
Power Players Joystick $19 
Road Raider ........$19 
Road Runner........$23 
Super Star Ice Hockey $23 
Super Star Soccer... .$23 


Thunder Blade ......$23 
Uninvited .........5 $23 
Willow ............$19 
"Requires Gauntlet! 

MISC 


Bob's Term Pro......$29 
Bob's Term Pro 128 ..$39 


Donde ...0ceceee ee $25 
Final Cartridge 3..... 547 
Font Master 2....... $23 
Font Master 128.....$29 
Superbase 64 ....... $25 
Superbase 128 ...... $33 
Superscript 64..... 92) 
Superscript 128...... $25 


Super Snapshot (R)...$47 
ORIGIN 


Autoduel...........$25 
Moebius ...66.0000 5 $25 
Tangled Tales ....... Call 
Times of Lore ....... $25 


Ultima 4or5....$39 Ea, 
Ultima 5 Hint Book .,.$9 
Uiiima Trilogy,......$39 
PROFESSIONAL 

Fleet System 2 Plus... .$33 
Fleet System 4 128,,.$43 
SIMON & SCHUSTER 


JK Lasser Money Mer. $14 


Typing Tutor 4...... $25 
SIR TECH 

Deep Space... . 6. $23 
Knight of Diamonds . .$25 
Proving Ground .....$25 
551 

Demon's Winter .....321 


Eternal Dagger ... 
First Over Germany . .$32 
Gettysburg .........$39 
Hillsfar ..... 
Heroes of the Lance. , Call 


aaa 26 | 
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Panzer Strike! .......$29 
Pool! of Radiance ....$26 
Typhoon of Steel ....$32 
War Game Const. Set.$21 
SIMON & SCHUSTER 

Star Trek: Rebel ..... $2) 
SPINNAKER 

EZ Working Tri-Pack, .$14 
SUBLOGIC 

Flight Simulator 2... .$32 


F.5. Scenery Disks .. . Call 
DOE etary is a ace e aces a sae $26 
Stealth Mission ...... $32 
TAITO 

AltoA gi cue oa aes eak $19 
Arkanoid .....00005 .$19 


Bubble Bobble ......$23 
Operation Wolf .....$23 


Qix... . Call 
Rastan wvieecccees ..$23 
Renegade,.......++.$23 
Sky Shark ......000. $23 
THREE SIXTY 

Dark Castle. ........ $23 
Thud Ridge ......... Call 
Warlock ........... $19 
TIMEWORKS 

Data Manager 2..... $14 


Data Manager 128 ,..$33 
Evelyn Wood Reader .$14 
Swiftcalc/Sideways ...$14 
Swiltcalc/Sideways 128$33 
Word Writer 4......$25 
Word Writer 128 ....$33 
UNICORN 

Decimal Dungeon... .$19 
Percentage Panic ....$19 
Ten Little Robots ....$19 
UNISON WORLD 

Art Gallery 1 or 2 $16 Ea. 
Art Gallery: Fantasy ..$16 


Print Master Plus ....$23 
WEEKLY READER 
Stickybear Series: 

| i, rere +. | 
Math lor2..... $23 Ea. 
Numbers ......0+.+.$23 
Opposites ..........$23 
Reading .....06+5005 $23 
Spellgrabber ........ $29 
Typing ........40...$29 
ACCESSORIES 


Animation Stalion,,..$49 
Bonus 55, DD , . $4.99 Bx, 
Bonus 05, DD. .$5.99 Bx, 
Compuserve Starter Kit$19 
Contriver Mouse,.... $33 
Disk (Case (Holds 75)$6.08 


Disk Drive Cleaner . $6.88 | 


Epyx 200 X| Joystick $9.88 


Epyx 500 X] Joystick. .$14 | 


Icontroller...... .1e S14 
Sony 5% DSDD.$6.99 Bx. 


Wico Bat Handle ....$17 
Wico Bots........005 $12 | 
Wico Ergostick J.5, ...$19 


METEC Super Graphix .$59 


XETEC Super Graphix Goki$79 | 


XETEC Super Graphis [r.$39 


rchased within 60 days from §.D.of A. is defective, please call for a return authorization number. We will not process a return without a return auth. #! Defective merchandise will 
& replaced with the same merchandise only. Other returns subject to a 20% restocking charge! After 60 days from your purchase date, please refer to the warranty included with the 
product purchased & return directly to the manufacturer. Customer service will not accept collect calls or calls on $,0.0f A.’s 8008 order lines! Prices & availability are subject to change! 
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each scenario, This tells you how 
soon you must sell for the adjust- 
able rate mortgage to make sense. 
Finally, press f5 again to print the 
cost analysis table. This printout 
tells you the inflation-adjusted cost 
for each mortgage and what the 
monthly payment on the ARM 
might be in the future. 


Life Insurance Needs 

Ask five different financial planners 
and you may end up with five dif- 
ferent answers. So use this program 
only as a rough guide when consid- 
ering your life insurance. 

_ The program bases your life in- 
surance needs on the following: 

1. Final expenses, such as the funer- 
al. This figure doesn’t include pro- 
bate costs, estate taxes, or medical 
expenses due to a lengthy illness. 
2. Paying debts, based on your per- 
centage of total household income. 
Debts are not paid up unless you 
are the sole source of income. 


3. Replacing your income, based on 
income and number of dependents. 
This amount figures in Social Secu- 
rity survivors’ benefits if you have 
children. 

4. Sending children to college and 
any gifts to charities, 


Financial Planner determines your 
current assets and then subtracts 
the sum of the four items above. 


Total household salary income. 
Add up all salaries before taxes. Ex- 
clude any money earned from inter- 
est, dividends, or rental property. 


Your salary, before taxes. If you 
are single, then this is the same as 
the above amount. 


Annual savings. The total amount 
the household saves each year. In- 
clude everything: retirement sav- 
ings, college funds, and vacation 
money, This is used to figure out 
how much income needs to be 
replaced. 


Your age. This is used in deciding 
what type of life insurance policy 
you should have. 


# of people in household. Include 
yourself in this count. As a general 
rule, the more people there are, the 
more insurance is needed. 

Age of youngest person. This fac- 
tors in when you're figuring out re- 
placement income. Young children 
need income supplements for a 
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long time. 


Next, total the assets of all 
household members. Estimates are 
fine. Include your personal IRA ac- 
count, but exclude your spouse’s. 


Cash, savings/checking accounts, 
Add up the balances from all 
household bank accounts. Include 
CDs, savings bonds, and Treasury 
securities. 


Stocks, mutual funds. Include the 
value of stock held by any house- 
hold member as well as the value of 
your retirement funds, Don’t in- 
clude retirement funds held by oth- 
er members of your household. 


Hard asset investments. Include 
tangible assets like a coin or stamp 
collection, antiques, or rental prop- 
erty, Exclude your primary resi- 
dence and cars (unless they are 
collectibles). 

Next, total the debts for every- 
one in the household. As with as- 
sets, estimates will suffice. If you 
and your spouse share responsibil- 
ity for paying the monthly bills and 
one of you dies, the survivor can still 
pay some of the bills. The program 
uses a weighted percentage in this 
calculation. If you bring in 50 per- 
cent of the total household income, 
then 70 percent of the debts are to 
be repaid by your life insurance if 
you're in a 28-percent tax bracket. 


Home mortgage. Enter the balance 
that you owe (check your annual 
statement). If your family doesn’t 
own a house but plans to buy in the 
next year, then enter the amount 
you plan to borrow. If you have a 
life insurance policy as part of your 
mortgage, enter 0 here. 


Car loan. Total up all outstanding 
balances. Again, estimates are fine. 


Consumer debt. Balances due on 
credit cards and personal loans. 


College fund. If you have no chil- 
dren, enter 0, Otherwise, use mod- 
ule 1 (College Planning) to 
calculate the amounts needed for 
each child, add them up, and then 
place the total here. 


Charitable contributions. This is 
the place for donations to your fa- 
vorite charities or relatives. 


Current interest rate. The rate 
your estate can earn with no risk. 
Ten-year Treasury notes would be 
an ideal place to put the money to 
earn income; these are now yield- 


ing about 9,35 percent. 


Output. A policy type and amount 
of insurance will be suggested. Life 
insurance can be very confusing. 
All types of life insurance have pre- 
miums and a death benefit. Premi- 
ums are what you pay in; the death 
benefit is how much your estate is 
paid when you die. Universal and 
whole life policies also have cash 
value. What follows is a short prim- 
er on the different types of policies, 

Term insurance provides cover- 
age for a specific time period. Your 
annual premiums stay constant 
during each policy term. With each 
renewal, premiums go up. This 
may not seem like a good deal, but 
remember, insurance needs are 
greatest when you have young chil- 
dren, A term policy may be partici- 
pating (dividend-paying) or non- 
participating. Dividends on term 
policies tend to be small, so it 
doesn’t make much difference if 
your policy pays a dividend. (It 
does matter a great deal for whole 
life policies.) 

With term insurance you don’t 
get any cash value; you are paying 
only for your insurance, If you live 
or work in Connecticut, New York, 
or Massachusetts, you can buy term 
life insurance from a savings bank 
at very low rates, Term insurance 
gives you the most coverage for the 
least amount of money and is rec- 
ommended if you need a lot of cov- 
erage but don’t have a lot of income 
or if you are a disciplined saver and 
have moderate insurance needs, 

Universal life insurance is the 
most versatile type of policy. There 
are three elements to universal life: 
premium, cash value, and death 
benefit. 

The annual premium is what 
you pay in. The company makes de- 
ductions for expenses and the cost of 
your insurance, What is left over is 
your cash value, which earns tax- 
deferred interest. Money in the 
cash-value account can be with- 
drawn or used as loan collateral. 

Universal life policies come in 
two varieties. Under Option A, your 
survivors receive the face amount 
of the policy; with Option B, your 
survivors get this amount plus the 
accumulated cash value. You pay 
more for Option B and in effect get 
a little more insurance. 

Buying universal life is almost 
like buying term insurance and in- 


Faster thana Speeding Cartridge 
= More Powerful than a Turbo ROM 


[t's Fast, It's Compatible, It's Complete, It's... 


JiffyD 


Ultra-Fast Disk Operating System for the C-64 , SX-64 & C-128 


SS 


" Speeds up all disk operations. Load, Save, Format, Scratch, Validate, access | 
PRG, SEQ, REL, & USR files up to 15 times fastor! 
+ Uses no ports, memory, or extra cabling. The JiffyDOS ROMs upgrade your 
computer and drive(s) internally for maximum speed and compatbility. 
+» Guarantood 100% compatible with all software and hardware. JitlyDOS speeds 
up the loading and internal file-access operation ol virtually all commercial software. 
| « Built-in DOS Wedge plus 14 additional commands and convenience features | | 
including one-key load/save/scratch, directory menu and screen dump. 
+ Easy do-it-yourself installation. No electronics experience or special tools re- 
|| quired. illustrated step-by-step instructions included. 
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Available for C-64, 64C, SX-64, C-128 & C-128D (JittyDOS/128 speeds up both 64 
and 128 modes) and 1541, 1541C, 1541-M, 1571, 1581, FSD-142, MSD SD-142, 
Excel! 2001, Enhancer 2000, Amtech, Swan, Indus & Bluachipdisk dives. System 
includes ROMs for computer and 1 disk drive, stock/JiffyDOS switching system, 
illustrated installation instructions, User's Manual and Money-Back Guarantee. 


sz C-54/SX- 64 systems $59.95; C-126'C-128D systems $69.95; Addl drive ROM's $29.95 ie 
: Please add $4.25 shipping/handling per order, plus’$2.50 for AK, HI, APO, FPO, 
Canada & Puerto Rico. $10.00 add'l for other overseas orders. MA residents add 5% 
sales tax. VISAMC, COD, Check, Monay Order. Allow 2 weeks for personal checks. 
Call or write {or more intormation. Dealer, Distributor, & UG pricing available. 
Please specify computer and drive when ordering 


1 Creative Micro Designs, Inc. | Bale) 
P.O. Box 789, Wilbraham, MA 01095 Phone: (413) 525-0023 be 
50 Industrial Dr., Box 646, E. Longmeadow, MA 01028 FAX: (413) 525-0147 oe 


le 
: 

= 
- 
s 
| 
—- 


os 
Bal 
ed 

4 


“VIDEO BYTE the first FULL COLOR! | 
video digitizer for the C-64, C-128 


Introducing the world’s first FULL COLOR! video digitizer for the 
Commodore C-64, C-128 & 128-D computer. 
VIDEO BYTE can give you digitized video from your V.C.R., B/W or 
COLOR CAMERA or LIVE VIDEO (thanks to a fast! 2.2 sec. scan time). 


} © FULL COLORIZING! Is possible, due to a unique SELECT and INSERT color process, 
where you can select one of 15 COLORS and insert that color into one of 4 GRAY 
SCALES. This process will give you over 32,000 different color combinations to use in 
your video pictures 

e SAVES as KOALAS! Video Byte allows you to save all your pictures fo disk as FULL 
COLOR KOALA’'S. After which (using Koala or suitable program) you can go in and 
redraw or recolor your Video Byte pic’s 

« LOAD and RE-DISPLAY! Video Byte allows you to load and re-display all Video Byte 
pictures from inside Video Byles menu. 

« MENU DRIVEN! Video Byte comes with an easy to use menu driven UTILITY DISK and 
digitizer program.” 

« COMPACT! Video Byte's hardware is compact! In fact no bigger than your average 
cartridge! Video Byte comes with its own cable. 

« INTEGRATED! Video Byte is designed to be used with or without EXPLODE! V4.1 color 
cartridge. Explode! V4.1 is the perfect companion 

@ FREE! Video Byte users are automatically sent FREE SOFTWARE updates along with 
new documentation, when it becomes available 

* PRINT! Video Byte will printout pictures to most printers. However when used with 
Explode! V4.1 your printout’s can be done in FULL COLOR on the RAINBOW NX-1000, 
RAINBOW NX-1000 C, EPSON JX-80, SEIKOSHA COLOR and the OKIDATA 10/20. 

Why DRAW a car, airplane, person or for that matter. . - 

anything when you can BYTE it . . : | 

Video Byte it instead, Vi DEO BYTE $79.95 

SUPER EXPLODE! V4.1 wiCOLOR DUMP 

If your looking for a CARTRIDGE which can CAPTURE ANY SCREEN, PRINTS ALL 

HI-RES and TEXT SCREENS in FULL COLOR to the RAINBOW NX-1000, RAINBOW 

NX-1000 C, EPSON JX-80 and the OKIDATA 10 or 20. Prints in 16 gray scale to all 

other printers. Comes with the world’s FASTEST SAVE and LOAD routines in a car- 

tridge or a dual SEQ., PRG. file reader. Plus a built-in 8 SECOND format and 
MUCH, MUCH MORE! Than Explode! V4.1 is for you. 
PRICE? $44.95 + S/H or $49.95 wioptional disable switch. 


re "IN 64 MODE ONLY = YIDEO BYTE only $79.95 | 
se mam vars Soak Y 


SUPER EXPLODE! V4.1 $44.95 | 
TO ORDER CALL OR FAX 1-312-851-6667 PLUS $150 S/H C.0.D/5 ADD $4.00 
Personal Checks 10 Days to Clear 


IL RESIDENTS ADD 6% SALES TAX | 
THE SOFT GROUP, P.O. BOX 111, MONTGOMERY, IL 60538 | 
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, 1700 EXPANDER 


BRO: 


CO. INC. 
OUR ONLY STORE 
ESTABLISHED 1950 
64 WEST 36th ST 
NEW YORK CITY 


NEW YORK !10018 


COMPUTER 4 
DISCOUNTS < 
ON ALL YOUR 4 
COMPUTER 
NEEDS 


CALL TOLL FREE J-800-451-9780 


NEW YORK STATE RESIDENTS CALL (112) 695-7133 
CUSTOMER SERVICE (212) 967-2353 


PM o | SAT. 





eae lt: 


COMMODORE 64-C 
20 PC. DREAM OUTFIT 
OUTFIT INCLUDES: Commodore 64:0 Keyboard 
#1541 Disc Drive #12" Computer Monitor 
*eCommodore Prnter *AC Adapter *Owners 
Manual #10 Diskettes 


C= Commodore 


COMMODORE 128 
20 PC. DREAM OUTFIT 
OUTFIT INCLUDES: Commodore 128 Keyboard 
815/71 Dise Drive #12° Computer Monitor 
*Commodore Printer *AC Adapter *Owners 


Manual 
5498 


#1) Disketles 
ot ee | 


a AMIGA 








TOP OF THE 

LINE OUTFIT 
OUTFIT INCLUDES: Amiga 500 With Built 
In Drive *Color Monitor *Printer For Amiga 


ePackage Of 10 Diskettes 
‘798 


*Qwners Manual 
®UWSA Guarantee 

AMIGA 501 * AMIGA 1010 
AMIGA 1020 / IN STOCK 


C= Commodore: 
HARDWARE / SOFTWARE 


128 COMPUTER | 1750 EXPANDER 
64 COMPUTER 1351 MOUSE 
64-C COMPUTER | 17012 MONITOR 

118D COMPUTER 1802 MONITOR 
154!) DISC DRIVE | 1902 MONITOR 
IS41-C DISC DRIVE | 2002 MONITOR 
1541-1) DISC DRIVE | 1080 MONITOR 
1571 DISC DRIVE | 1084 MONITOR 
1581 DISC DRIVE 80! PRINTER 
1660 MODEM 803 PRINTER 
1670 MODEM MPS-1000 PRINTER 
| 1764 EXPANDER 
MPS-1250 PRINTER 


ITEMS SOLD SEPARATELY. 
CALL NOW FOR NEW LOW PRICES! 





$348 


MPS-1200 PRINTER | 





10:00AM-7:30PM * SUN. 10:30AM-6:00PM 


COMMODORE 64 
20 PC. DREAM OUTFIT | 
OUTFIT INCLUDES: Commodore 64 Keyboard 
#1541 Disc Drive #12" Computer Monitor *Printer 
For Commodore *AC Adapter *Owners Manual | 


*\0 Diskettes *Factory $ 2 98 


Reconditioned 
= ‘Commodore 


ais 


— ar 








COMMODORE 128 - 20 PC. 
TOP OF THE LINE OUTFIT 
OUTFIT INCLUDES: Commodore 128 Keyboard 
«Commodore 1571 Disc Ore *Commodore 1084 
RGB Color Monitor *Commodore MPS 1700 
Printer @AC Adapter *Owners Manual 


#1) Diskhettes S 79 8 


C= Commodore: 


lead, 


= 


i ls: 


See E 


COMMODORE | 128-D 20 PC. 
PROFESSIONAL OUTFIT 
OUTFIT INCLUDES: Commodore 128-0 With Built 
In 157) Oise Orive #12° Computer Monitor 
«Commodore Printer *AC Adapter *Owners 


°398 


Manual #10 Diskettes 


COMMODORE 


AMIGA, 


20)0)0) 





CALL FOR == 
NEW LOW 
PRICE! 


ALSO AVAILABLE; AMIGA 1084 MONITOR 
*3.5"" INTERNAL DRIVE «BRIDGE CARD 
HARD DAIVE CONTAOLLER +1 MB RAM 

EXPANDER «PACKAGE DEALS AVAILABLE! 


AMIGA 2000 HD 
AMIGA 2500 


NOW IN STOCK? 





CHOOSE YOUR OWN PACKAGE DEAL 
MIX & MATCH THE COMPUTER SYSTEM THAT’S 
GOOD FOR YOU & ONE OF OUR COMPUTER SPECIALISTS 
WILL GIVE YOU A SPECIAL PRICE. 


ORDER NOW!I! PHONE ORDERS ONLY- 


CALL TOLL FREE 1-800-451-9780 NY RESIDENTS / INFO CALL (212) 695-7133 

Use MC, Visa, AMEX Or Send Money Order, Certilied Checks. Al Merchandise Brand New Factory Fresh. Shpping 

| Charges Non Refundable For Mad Orders Please Call Before Sendeng in Money Order AN Preces Sutyect To Manutac ff 
turers Increase Decrease Relunds With 7 Days Only With Orepnal Packaging & Untilled Guarantee Cand. No § 


Relunds Accepted Without Prot Verbal Authorivation Customer Service Between 1? pm G pm. Pictures Are For 
iost Purposes Only Not Responieble For Typpographoeal Firort. Conte Alland License No BOO 253) Prices 


1 Good For Mad Orders (nly 





vesting the added premium with 
the insurance company. This can be 
a very good investment because it 
grows at a tax-deferred rate. 

Whole life also has the three el- 
ements: premium, cash value, and 
death benefit, Typically, whole life 
insurance premiums do not rise. 
This may seem good, but it really 
isn’t, because the premium starts 
out high. Some companies offer 
graded premium or modified premi- 
um whole life insurance policies 
that have lower premiums in the 
first few years, But these modified 
plans don’t really eliminate the dis- 
advantages of whole life. 

With whole life policies in gen- 
eral, the cash value accrues with 
time, and you can borrow against it 
or cash it out. The death benefit is 
paid to your survivors when you 
die. It is not easy to decrease the 
amount of your policy. This is a ma- 
jor drawback because your insur- 
ance needs are greatest after you 
have started a family, and they de- 
crease as your children leave home. 
Whole life is recommended for peo- 
ple who have large incomes and lit- 
tle or no savings, since it’s a good 
method of forced saving. 

New on the scene are variable 
life insurance policies. They offer 
consumers a chance to invest in the 
stock or bond market by putting 
their investments in a life insurance 
contract. Financial Planner is not 
programmed to recommend this 
type of insurance because your 
costs and cash-value appreciation 
depend on how well the stock or 
bond market does. 

When it comes to life insur- 
ance, the standard line is to get term 
insurance and invest the difference 
that you would normally pay in as 
premiums. The tax-deferred appre- 
ciation offered in a universal life 
policy is an attractive way to save 
money as well, Whole life lacks 
flexibility and most families can’t 
afford the coverage they need. 


Refinancing a Mortgage 

Back in 1982, when the prime rate 
reached 20 percent, mortgage rates 
reached all-time highs of 15 per- 
cent. Now that interest rates have 
fallen, it may be time to refinance 
your mortgage. 

CURRENT FINANCING 


Current balance. The amount you 
owe on the existing mortgage. You 
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can usually find this on the annual 
mortgage statement. You may also 
use option 4 (the Loan Payments 
module) to print out a schedule and 
take the balance from there. 


Annual % rate. This module han- 
dles fixed rate mortgages only; it’s 
not designed for adjustable rate 
mortgages. 


# of payments due. How many 
payments are left to make? 


SUGGESTED REFINANCING 


Principal. Usually the same as the 
current balance on the existing 
mortgage. The new principal may 
be larger, especially if money is 
needed for tuition or a new car. 


Annual % rate. Interest rate on the 
new mortgage. 


# of payments. Term of the new 
mortgage. 
Points. A percentage of the princi- 
pal paid when you take out the 
mortgage. 


Other closing costs. Although 
you've already had a title search, 
the mortgage company requires an- 
other one. 


Prepayment penalty. Many mort- 
gages now have penalties for early 
payments, This is to make mortgage- 
backed securities more attractive. 


Tax bracket, Include state income 
taxes in the total percent. 


Interest and points deductible. A 
Yes or No choice. Points are deduct- 
ed over the life of the mortgage in 
our analysis, This is a conservative 
calculation, because many taxpayers 
can deduct the points immediately. 


Inflation rate. Use the value of the 
Consumer Price Index (CPI) here. 


Output. Displays the difference be- 
tween the old payments and the 
new payments. If refinancing is 
profitable, Financial Planner tells 
you how long it will be before you 
reach the break-even point. Other- 
wise, the program tells you that re- 
financing costs you money. You 
should keep your current mortgage 
if you plan to sell before the break- 
even time or if refinancing costs 
you money. If either of these condi- 
tions is met and you need money 
for other expenses, consider a home 
equity loan or a second mortgage. A 
rule of thumb is that the interest 
rate on the new mortgage should be 
at least two percentage points below 


the rate on the current mortgage for 
refinancing to be considered. 


IRA Planning 

Your age. Used in figuring an early 
withdrawal penalty and the IRA’s 
future value. 


Current IRA balance. How much 
you have in your account today. 


This year’s contribution. The 
amount you're going to deposit this 
year. 


Estimated annual yield. You can 
get around 9,23 percent on five- 
year CDs right now. 


Current tax bracket. Include any 
state income taxes. 


Early withdrawal penalty. Right 
now, there is a 10-percent penalty 
on any money withdrawn before 
age 591/2, Remember that taxes are 
also due on any withdrawals. 


% of contribution deductible. The 
1987 Tax Reform Act limited the de- 
ductibility of IRA contributions. If 
you are not covered by a pension 
plan, then your contribution is 100- 
percent deductible. If you are single 
and report an adjusted gross income 
of more than $25,000, you lose $1 of 
deduction for every $5 of income 
over this limit. So at $30,000, only 
$1,000 can be deducted, and at 
$35,000, none is deductible. 

If you are married and filling 
jointly, the phase-out begins at 
$40,000, with $2 of deductibility 
lost for every $5 of income over this 
limit. At $50,000, none of the con- 
tribution is deductible. 


Retirement age. Most people retire 
at 65 or 67, with 62 and 70 as 
alternatives. 


Tax bracket when you withdraw. 
There is no way to know this, Con- 
gress may lower taxes further, but a 
safer guess would be higher rates. 


Output. Financial Planner calcu- 
lates how much this year’s contribu- 
tion will be worth upon retirement, 
inside or outside an IRA. It also fig- 
ures out how much your entire ac- 
count will be worth if you contribute 
the same amount each year and 
what that will be worth after infla- 
tion. Finally, the break-even time for 
early withdrawals is given. This last 
piece of information is very useful 
should you need this money before 
retirement, 

See program listing on page 84. G 





UTILITIES UNLIMITED, inc. 


12305 N.E. 152nd Street 
Brush Prairie, Washington 98606 





| SUPER PARAMETERS 1000 Pack 

Utilities Unltd. has done it again!! We have consolidated and lowered the 
ices on the most popular parameters on the market . Super: 
arameters, now you can get 1000 paramelers and our 64/128 nibbler 

package for just $39.95I!! This is a complete 10 disk set, that includes every 

parameter we have produced. 


PARAMETERS CONSTRUCTION SET 


The company that has The Most Parameters is about to do something 
Unbelievable. We are giving you more of our secrets. Using this Very Easy 
program, it will not only Read, Compare and Write Parameters for You; it 
will also Customize the disk with your name. It will impress you as well as 
your friends. The “Parameter Construction Set” is like nothing you've ever 
seen. In fact you can even Head Parameters thal you may have already writ- 
ten; then by using your construction set, rewrite it with your new Customiz- 
ed Menu. $24.95. 


LOCK PICK - THE BOOKS - for the C64 and (128 

Lock Pik 64/128 was put together by our crack team, as a tool for those who 
have a desire to see the Internal Workings of a parameter. The books give 
you Step-By-Step Instructions on breaking protection for backup of 100 
popular program titles. Uses Hesmon and Superedit. Instructions are so 
clear ad precise that anyone can use it. $19.95 Sel 


AULNEW BSS 25 ee 5819195 


Use | to 4 Drives, 300-1,200 Baud unprotected easy to customize so 
each is different! 


BLITZ: DECOMPILER «30. Selo cs eae cole eo 
Used to decompile programs that have been compiled with BLITZ 
154] MASH Drive Alignment ......... 

Used to easily align your 1541 disk drive 

GRAPHIC Label Maker $14.95 


For use with your PrintShep graphics to make mailing labels. 


De hada rey tery, ota toes sor eken see 


Used as a teacher of machine lanquage. 


Waster-lock:*\ so 362 ot Ae stn 2 De 85885 


Used to add extensive protection to your basic or M/L programs. 
Easy to use and works very well. 


Used to convert your PrintShop, NewsHoom, and PrintMaster 
graphics back and forth. 


Super Copy 64126) oc. 6a eee nce 9 ae 


This is a collection of copy utilities for the C64 and C128. 


Top Secret Stuf #1... 2... cece c rece c ee Saeed 


si lirst volume of Hacker utilities on the market, and it's still very 
useful. 


Top Secret Stall #2 is. csccccess ste secne § 9,95 


The second volume has everything volume one did not have. Or buy 
both for just $14.95, 














WORLD'S BIGGEST 
d= (0)'4/8) 4-0) 


C64/128 
UTILITIES 


If you wish to sha your order by phone, please 
call 206-254-6530. Add $3.00 shipping & hand- 
ling; $3.00 COD on all orders. Vi 
accepted. Dealer Inquiries Invited. 


sa, MC 





SUPER CARD PLUS 
The Super-Card copier-was the BEST disk archival utility ever created for the 
Commodore computer...until now...Introducing SUPEE-CARD PLUS! We took 
the original idea a step further. The hardware board will now fit ALL Com- 
modore and compatible disk drives. The soltware is easier to use, yet more 
powerful! than ever before! 


What can it copy? Well...in short, everything! We have not found anything 
that SUPER PLUS could not back up! If you don't believe us, try it 
for yoursell! 


The SUPER-CARD PLUS board installs INSIDE your 154), I541C, 1541-1, 1571 
and most Commodore compatibles. With just a few minutes of time and a 
screwdriver, anyone can easily instal] the board. 


The soltware package includes ALL of the necessary programs to make ar- 
chival backups of everything! The 1700, 1764, and 1750 REU (RAM Ex- 
panders) are supported for fewer disk swaps. Parallel cables are also sup- 
ported. With a parallel cable and SUPER-CARD PLUS, you can copy a disk in 
as little as 8 SECONDS! Without a parallel cable, backups take only 2 minutes! 


SUPER-CARD PLUS does NOT strip the protection from the disk! It makes an 
identical copy! This means that copies of copies are also identical. NO 
PARAMETERS REQUIRED. 


matt 
does a backup cost for each of these programs? You can easly see how 


SUPER-CARD PLUS will pay for itself. 


SUPER-CARD PLUS PRICES: 
Oe Ae aaseae ese nears phe a iiniaine ate te aceon Mae ee a .. § 49.95 
UF | Fe ee A Pari coe ree Aorta teens eae § 89.90 


i ee ee ee 


The ultimate utility from Holland, adds dozens of functions to your C-64 
such as—fastload (15x), backup, freezer, printer fr., word problems, pop-up 
calculator, color screen dump, windows (C-64 works like an AMIGA) and 
much more. LIST $69.95 ONLY $54.95. 


THE 128 SUPERCHIP - A, B or C (another first) 
A — There is an empty socket inside your 128 just waiting for our Super Chip 
to give you 32K worth of great Built-in Utilities, all at just the Touch of a Finger. 
You get built-in features: Files Copier, Nibbler, Track & Sector Editor, Screen 
Dump, and even a 300/1200 baud Terminal Program that’s 1650, 1670 and 
Hayes compatible. Best of all, it doesn't use up any memory. To use, simply 
touch a function key, and it responds to your command. 


B — HAS SUPER 81 UTILITIES, a complete utility package for the 1581. Copy 
whole disks from 154] or 1571 format to 158]. Many options include 158] 





disk editor, drive monitor, Ram writer and will also periorm many CP/M & 
MS-DOS utility functions. =a 


C — "C” GS FOR COMBO and that's what you get. A super combination of both 
chips A and B in one chip, switchable at a great savings to you. All Chips In- 
clude 100 Parameters FREE! 

Chips A or B: $29.95 ea Chip C: $44.95 ea. 


SUPER GRAPHICS 1000 PACK 

That's right! Over 1000 graphics in a |0-disk set for only $29.95. There are 

crephis for virtually everything in this package. These graphics work with 
int Shop and Print Master. 








ew = 
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Software Submissions Invited 
We are looking for HACKER STUFF: print utilities, 
parameters, telecommunications, and the 
unusual. 


We now have over 1,000 parameters in stock! 


NEW! SUPER CARTRIDGE EXPLODE! V4-1 w/COLOR DUMP $44.95 
Introducing the World's First Color Screen Dump in a ean Explode! 
V4.1 will now Support Directly from the screen. FULL COLOR PRINTING 
for the Rainbow Star NX-100 and also the Okidata 10 & 20 printers. 


The Most Powerful Disk Drive and Printer Cartridge produced lor the 

COMMODORE USER. Super Friendly with the features most asked for. 

e SUPER FAST built-in single drive 8 or 9 FILE COPY, copy files of up to 
235 BLOCKS in length, in less than 13 seconds! 

e SUPER SCREEN CAPTURE. Capture and Convert Any Screen to KOALA or 
DOODLE. 

e SUPER FAST FORMAT (8 SEC’S) - plus FULL D.0.S. WEDGE w/standard 
format! 

e SUPER FASTLOAD and SAVE (50k in 9 SEC’S) works with all C-64 or 
C-128's No Matter Whal Vintage! And with most alter market drives 
EXCEPT the 1581, M.S.D. 1 or 2. 

« SUPER PRINTER FEATURES allows ANY DOT MATRIX PRINTER even 
1526/802 to print HI-RES SCREENS (using 16 shade GRAY SCALE). 
Any Printer or Interface Combination can be used with SUPER 
EXPLODE! V4.1 or V3.0. 

© NEW aad IMPROVED CONVERT feature allows anybody to convert (even 
TEXT) Screens into DOODLE or KOALA Type Pictures w/Full Color! 

° pte Heol SAVE of EXPLODE! SCREENS as KOALA or DOODLE FILES 
w/COLOR. 

e SUPER FAST LOADING with Color Re-Display of DOODLE or KOALA 
files. 

« SUPER FAST LOAD or SAVE can be TURNED OFF or ON without AFFECT- 
ING the REST of SUPER EXPLODE’S FEATURES. The rest of Explode 
V4.1 is still active. 

e SUPER EASY LOADING and ROUNMING of ALL PROGRAMS from the DISK 
DIRECTORY. | 

« SUPEE BOLT-N TWO-WAY SEQ. or PRG. file READER using the DISK 
DIRECTORY. 

e NEVER TYPE A FILE NAME AGAIN when you use SUPER EXPLODE’S 
unique LOADERS. lan 

e CAPTURE 40 COLUMN C or D-128 SCREENS! (with optional DISABLE 
SWITCH). Add $5 


ALL THE ABOVE FEATURES, AND MUCH MOEE! 
PLUS A FREE UTILITY DISK w/SUPER EXPLODE! V4.1. 
MARE YOUR (-64, 64-C or C-128*, D-128° SUPER FAST and EASY to use. 


VIDEO BYTE THE INEXPENSIVE DIGITIZER ................ $79.95 
VIDEO BYTE! the VIDEO DIGITIZER you can use with your C-64 or 128 and a 
V.C.R., B&W or COLOR VIDEO CAMERA. VIDEO BY TE! is the inexpensive 
alternative to other more expensive units. VIDEO BYTE! can be used with 
SUPER EXPLODE! V4.1, V4.0 or V3.0 EAPLODE! 


SUPER TRACKER .................... Only $69.96 


Find where the protection really is. Locate the density and track to 
‘break the protection. Encased in a handsome box, sets on top of your drive 
with L.E.D. read out. 


=i 


| a The ULTIMATE UTILITY CARTRIDGE. Packed full of useful utilities. 

Super fast File Copier, Nibbler, Sector Editor, Graphic Label Maker, just to 
mention a few. 128K of software at.your finger tips. SUPER CARTRIDGE can be 
shut off and uses no memory. PLUS 100 FREE PARAMETERS. 


SUPER CARTRIDGE ..............2.-+++-+ $49.95 


1981 D 


One 1581 disk can hold almost 300 files. 
Being able to store large amounts of data 
on each disk can be quite a boon. It can 
also make finding a particular file very 
difficult. By allowing you to place your 
files in any order, “1581 Directory Sort- 
er’ makes them easier to find. 

1581 Directory Sorter can sort your 
directory entries in alphabetical and 
reverse alphabetical order. You can also 
choose to read the files in their original 
order and then rearrange them your- 
self. Once in memory, you can view up 
to 96 files on the screen at a time and 
you can move files from place to place 
with only a few keypresses. 

Directory Sorter has the unique 
ability to detect whether it’s running on 
a 64 or 128 and whether the 128 is in 
40- or 80-column mode, In 128 mode, 
the program uses fast mode whenever 
possible. 


Typing It In 

1581 Directory Sorter is written in 
BASIC and may be entered on either 
the 64 or the 128, If you intend to use 
the program on the 128, you should en- 
ter it in 128 mode to ensure that all the 
lines are tokenized correctly. 1581 Di- 
rectory Sorter writes directly to disk 
when run, so it’s important that you 
type in the program carefully. The first 
time you test the program, run it on an 
unimportant disk, 

To get started, load and run 1581 
Directory Sorter. First, the program 
prompts you for the drive number, En- 
ter the device number of your 1581 or 
press RETURN to accept 8 as the de- 
fault drive number. Next, Directory 
Sorter checks the disk drive to see 
whether it is a 1581. This step is impor- 
tant because if you were to treat a disk 
formatted on a 1571 as if it were a 3'/2- 
inch disk, important data could be lost. 
If the drive you've selected isn’t a 1581, 
the program warns you and requests a 
new device number. You can enter 0 at 
this prompt to exit the program. 
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This enhanced version of 
“1581 Alphabetizer” 
(February 1989) allows you to 
sort your 1581 directories in 
alphabetical or reverse 
alphabetical order. It also 
offers an editor that allows 
you to place files in any 
order. For the 64 and 128. 


Ca 
Chol al 


? At 





Once the program is satisfied that 
the selected drive is a 1581, it asks for 
the type of sort you'd like it to perform 
as it reads the directory from the disk, 
Press A to sort the directory in alpha- 
betical order (A-Z), press Z to sort it in 
reverse alphabetical order (Z-A), or 
press M to read the directory entries 
without changing their order. Each time 
it reads a directory entry, Directory 
Sorter prints a dot on the screen. The 
program enters edit mode when all en- 
tries have been read. 


Rearranging 

In edit mode, 1581 Directory Sorter 
shows as many as 96 files on the screen 
at a time with a 128 and an 80-column 
monitor, If you're using a 64 or a 128 in 
40-column mode, Directory Sorter dis- 
plays 48 files at a time. If the disk con- 
tains more than one screenful of files, 
press + to step forward through the 
files one screen at a time. Press — to 
step backward through the files, 

At the top of the screen, you'll see 
the white edit cursor. You can move the 
cursor with the up-, down-, left- and 
right-cursor keys. Move it to the top of 
the current column by pressing 1. Press 
SHIFT-T to move to the bottom of the 
current column. Press CLR/HOME to 
move to the first file on the screen. 

To move one or more files to a new 
position, move the edit cursor to the 





first file and press G (group). The white 
edit cursor changes to red to let you 
know you're in group mode. Press the 
cursor-down key until the last file you 
wish to move is highlighted. If you 
move the cursor past the last filename, 
the program displays the next screen. 

Once you've selected the files you 
want to move, press G again. The files 
you select are removed from the list and 
the files below them are moved up to 
fill in the empty space. The edit cursor 
now changes color again. Move the edit 
cursor to the location you want the files 
moved to. If the cursor is in front of the 
former location of the files, it becomes 
green. If it’s after the old location, it 
turns gray. Select the location for the 
files and press G, The file under the cur- 
sor and the ones below it are moved 
down; the files that you picked up are 
placed into the vacated space, and the 
edit cursor turns white again. 

While you're in group mode (the 
edit cursor is green or gray), you can 
look at the files you’ve picked up by 
pressing F, Directory Sorter displays 
the old directory location and the name 
of each of the files you've picked up. 
Press RETURN to look at more of the 
files or E to return to the edit screen. If 
you change your mind about moving 
the files, cancel by pressing C. 

You may rearrange files in any or- 
der you wish. When you're satisfied 
with the order, press Q to exit edit 
mode, Note that you cannot exit edit 
mode if you've picked up files without 
putting them down. 


Save It? 

Once the directory is in order, 1581 Di- 
rectory Sorter asks whether you would 
like to save the new directory. Up until 
this point, everything you've done has 
been carried out in memory. If you 
want to leave the disk directory un- 


‘changed, press N. Press Y to write the 


new directory and validate the disk. 
See program listing on page 83. G 


discs El tal [a 


fe 


GW/oara-cass TISAR 128 | susiness sortware C64 POWER SUPPLY 
REMARKABLE CUSTOMER DATA-BASE & INVOICE MANAGEMENT SYSTEM! JISA& MASTERCAHDACCEPTED _f 
A COMM ODORE: ee Chenoa pa SS TMEART "1 ; 300 BaudModem $29. 
Write/Read/Print Customized Invoices & Records. ester eel 
User Friendly Prompts guide you through each function. : 


Full Coloe » Stores 500 Seearaiea Das 1571 oe 
Track Sales or Job Status, Estimates t Codes, “ 
Search, Cross-search, Sort. Mailing labels. Graphs. much more: Call orders only 
80 Columns « Back-Up-Able » Full Documentation 24 hours « Les tiysat ho oti 
Version 2,2 Includes Inventory control $49.00 1-800-537-LABS . are 
Saal he belly inty ad Saliadlel hea DEALER WELCOME. a ale ait 
Same-day shpg. MC/VISA of COD (please no checks.) weohiad : C Pso1 


CW DATA-LABS, 10610 Evans St., Philadelphia, PA 19116 MAXTRON 
| VORP ln ucaoan et: case | 1825A Durfee Ave. S.EiMonte.CA91733 (818) 350-5707 _ $29.95 


ATTENTION ROLE PLAYERS <j) 



















Battlezone - Centipede - Defender - Donkey Kong - Galaxian - Jungle Hunt 
Gremlins - Moon Patrol - Ms. Pac Man - Pac Man - Pole Position - Robotron CHARACTER EDITORS ($19.95 each) - Might and Magic, 
$5.95 Each or Any 5 for $18.95 Bards Tale (1, 2, or 3), Wasteland, Ultima (2, 3, 4 or 5), 


TT 7 , Wizardry (1 or 2), Pool of Radiance, Neuromancer, Elite, 
Print ro} 110) 0) Wola (800) 347-6760 | Phantasie (1, 2 or 3) and Mars Saga. 


hi 10% Machine Language HINT BOOKS ($9.95 each) - Wizardry 1, Wizardry 2, Might 
Faery 342 W. Beal! Suite 7 1 i 

Gra ph ICS bo Page Manus! | Fresno, ca a7 and Magic, and Legacy of the Ancients. 

C-64 Version $14.95 Add $3.00 for shipping/handling, Specify computer type on order. 


C-128 Version $19.95 | Add $3 S/H per order J | ec 
FREE P.D. Software Catalog GOSSELIN COMPUTER CONSULTANTS - 
- 7 ; P.O, Box 1083 © Brighton, MI 48116 « (313) 229-2453 —— 
























BRE Sottware Oep!.G 











| For Non Commodore Printers 
(Print Shop Disk Side A) 
4400 Graphics per Package 
$24.95 each or all 3 for $59.95 












ELECTRONICS AC/DC CIRCUIT 

* ANALYSIS PROGRAM 329.95 Disk, Tape 

_ Computer Heroes 

“ PO Box 79A, Dept. 231 = a 
_ Farmington, CT 06034 C-64, C-128, IBM PC 

Orders only 1-800-622-4070 


Convert your C64/C128 to a DX7 with the 


SFX SOUND EXPANDER 


SFX SOUND EXPANDER 
| 9 volce digital synthesizer module 

SFX FULL SIZED KEYBOARD $80.00 
SFX COMPOSER & SOUND EDITOR $30.00 
MIDI compatible sequencer and editor for Sound Expander | 


Fearn & Music, 519 W. Taylor #114, Santa Maria, CA 92454 = 
Phone 800-447-3434 In CA 605-925-6682 eo = 








Posen computes general numeric solution to electronic circuit of up to 

40 nodes and 63 branches. Branches may contain resistors, capacitors, 
inductors, current sources, voltage sources or 4 types of controlled sources. 
Computer displays node volta branch voltages, currents, powers and 
power factors. Step function of ranch parameters or frequency with graphic 
display of results. Menu controlled and user friendly. 










ELECTRONIC TECHNICIANS, COMMODORE 64/120 
HOBBYISTS, AND ENGINEERS RADIO SHACK COCO 2-3 
YES! We accept 


eo = MAIL TO: 


Outside CA 1-800-356-8113 COMPUTE!’S GAZETTE SUBSCRIBER SERVICE 


SAAC IeRC bosto! In CA (714) 657-4449 P.O. Box 3251, Harlan, 1A 51537 


ENTER your required input/output specications ond the computer desagns the orcut ' : =i ; - 
ELEVEN seperate user triendly, Computer Aided Design programs. wil helo you bulld Change of Address: Please advise as early as possible. Attach label 


any custom device Write: with your old address and write in new address below. 
FREE WEASELGAAPHICS 
detailed into Dept. 79 New Subscriber: Fill in your name and address below. Use separate 


P.O, Box 2046, Sun Cay. CA 92381 sheet for gift orders. 


Now Qver 230 Parameters [a is 
Stock That Erase Protection Fast! = “\))) 
! 
Call Or Wise Por Gur Pree Catalog ij | 
Tejas Soft 
206 W. Denison — Serious Archiving li Char Only 
Roblason, Texaa 76706 Business, And Your 
817-662-4045 3pn-Ipm CST M-F Sasiifacton Ia Chuaparteed! 
Ereicuce Vol] & 2- Over 100 Paremetes On Each Dick The Allow You To Arche Your Pevors Tike $17.95 Ea x 
Eradicator Mini-Pak #1, #2, & #3. Paramesers For Qver 20 Cf The Lacest Releases On Each Parameter Dick «$1295 Ea. |], | Renewal: Attach label. 
The ‘Original’ Parameter Cross-Reference - The Ulimeie Archival Reference Perbodical - $19.93 « Or Quaruerly Disk . $9.95 4% 
Add $1.00 py, $7.50 Foreign. TX Residents Add 7.5% Sues Tax. UPS Air & COD Exwra ne | One year $24.00 —~¥ Two years $45.00 
1_S Dippy Aad ening D0 AE 6 OS Ere Teele . A | (Foreign subscribers please add $6.00 per year for postage) 


NOTHING LOADS YOUR PROGRAMS FASTER THAN tebe 
THE QUICK BROWN BOX | STREET 
A NEW CONCEPT IN COMMODORE® CARTRIDGES 


| Store up to 30 of your favorite programs in a single battery-backed cartridge for easy, CITY/STATE/ZIP 
| instant access. Change contents as often as you wish. The Quick Brown Box accepts 


| most unprotected and “frozen” programs including the only word processor thal saves a | 
| your text as you type, “The Write Stuff.” Coexists with GEOS© and Commodore RAM —— Please bill me ___ Payment enclosed 
| Expansion Units. Loader utilities included for both C-64 and C-128 modes. Aes ; : 
| 16K $69; 32K $99, G4K $129 (plus $3 s/h; MA res. add 596). Call for "Write Stuf!” pkg. For other subscription questions or problems, please write a note and 

Brown Boxes, Inc., 26 Concord Ad,, Bedford, MA 01730: (617) 275-0090; 862-3675. send entire form to the above address 

"Good Reliable Stuff" Info (Jan/Feb '68) ; | , 
“A Little Gem" Twin Cities 128 (Mar/Apr '88) 
“You'll Never Lose Your Cool, or Your Programs" ALIN (Nov ‘87) 
“A Worthy Product—Long Overdue" Ahoy (Feb 85) 





The Commodore 64, with its dedi- 
cated Sound Interface Device (SID) 
chip, has long been known for its 
superior sound capabilities. But for 
most, producing sophisticated sound 
effects on the 64 is difficult at best. 

With the introduction of “SFX 
Machine,” a simple sound-effects 
generator, this is no longer the case. 
Not only does it make sounds; SFX 
Machine makes them up. And best 
of all, it only takes a single keypress 
to hear each one. 


Getting Started 


Except for one short machine lan- 
guage routine, SFX Machine is writ- 
ten entirely in BASIC. Type it in 
using “The Automatic Proofreader,” 
found near the back of this issue, Be 
sure to save a copy of the program 
to disk. 

To use SFX Machine, just load 
and run it. After a brief pause, the 
menu screen appears. To hear a 
sound effect, turn up the volume on 
your IV set or monitor and press the 
space bar. (The effect can be greatly 
enhanced by connecting the 64's au- 
dio output to a good amplifier.) 

Don’t like the sound? Press the 
RETURN key to generate another. 
Since all the sounds are randomly 
generated, some will be more im- 
pressive than others. 


Saving and Loading Sounds 
Once you hear a sound you like, 
you can save it to disk or store it in 
memory by assigning it to one of 
the number keys. To save a sound, 
press S; then press K for keyboard 
or D for disk. 

If you press K, the program as- 


50 COMPUTE!'s Gazette July 1989 


Larry Cotton 


Discover the 
fantastic potential of 
the SID chip with 
this unusual yet 
powerful sound- 
effects generator. 
Disk drive required. 


Ale 


signs the sound to the number keys 
(1-9) in sequential order and then 
returns you to the main menu 
screen. The status bar (shown in in- 
verse) on the right side of the screen 
tells you which keys have sounds, 
The status bar on the left tells you 
which sound you're currently hear- 
ing. To review any numbered 
sound, press the appropriate num- 
ber key, then the space bar. Once 
you've assigned sounds to all the 
number keys, the next save you 
make automatically goes to disk. 

If you choose to save sounds to 
disk, the program requests a file- 
name for the sound effect. Enter a 
filename that is 16 characters or less 
in length. Enter $ to look at a direc- 
tory of the disk. Be careful when 
using the disk, since SFX lacks error 
checking. 

To reload a sound from disk, 


press L from the main menu. As 
with saving sound effects, the pro- 
gram requests a filename. Enter the 
name of the file you want to load or 
$ to view the disk directory. 


Pitch Control 

SEX Machine allows you to adjust 
the pitch of any sound, To raise or 
lower the pitch of a sound, press + 
or —, respectively. Note that some 
sounds don’t change much when 
you alter the pitch. 

Pitch is always saved as part of 
the sound, Simple tunes can be 
composed with one sound effect by 
changing the sound’s pitch and as- 
signing it to several different keys. 

To repeat a single sound indef- 
initely, press R (you can also hold 
down the space bar). As you'll dis- 
cover, some sounds take on unpre- 
dictable characteristics when 
played continuously, To stop a con- 
tinuous sound, press any key. 


Where the Sounds Are 


The Commodore 64 can play up to 
three voices simultaneously. The 
basis for most of the sounds created 
by SFX Machine sounds is that 
voices 1 and 2 play together, at 
times slightly detuned and/or mod- 
ulated by voice 3. Complex wave- 
forms are created by combining the 
normal ones—triangle, sawtooth, 
square, and noise—while adding 
ring modulation, synchronization, 
or a combination of these. 

Since all the sounds are ran- 
domly created, the results are un- 
predictable and often better than 
those deliberately created. 

See program listing on page 71. G 
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Randy Thompson 


“‘The Programmer's Page” ts 
interested in your programming 
tips and tricks, Send all submis- 
sions to The Programmer's Page, 
COMPUTE!’s Gazette, P.O. Box 
5406, Greensboro, North Carolina 
27403. We'll pay $25-$50 for each 
tip we publish. 


I recently received a letter asking 
for a 64 version of a tip published in 
the May 1989 “Programmer's Page.” 
In this tip, Anderson N. Cadell ex- 
plained how you can make your 
BASIC 128 programs automatically 
run when loaded. With 128 and 64 
memory maps at my side, I came up 
with a solution. 


« Add the following line to the be- 

ginning of your program: 

0 POKE 43,1:POKE 44,8:POKE 
770,131:POKE 771,164 


« With your program in memory, 
enter these commands and press 
RETURN: 

PRINT” {CLR}”:POKE43,3:POKE44,3 
:POKE770,113:POKE771,168:POKE 
157,0:SAVE"filename’,8 

«When READY flashes at the top of 

the screen, turn your computer off 

and then on again. Now, entering 
the command LOAD “filename’,8,1 
will cause your program to load and 
run automatically. If you wish to 
have the RUN/STOP-RESTORE 
key combination disabled as well, 
remove the last two POKEs in line 0. 


Unwanted Lines 
If you don’t own a utility that al- 
lows you to erase a range of BASIC 
lines, Helen Roth of Los Angeles, 
California, has an easy solution. 
Load the program that contains 
the lines you wish to delete and en- 
ter the command POKE 774,0. Now, 
LIST the lines you want to remove. 
For example, to delete lines 250- 
300, enter LIST 250-300. The line 
numbers will list to the screen, but 


THE 


the lines’ text will not. Position the 
cursor on the first line number and 
continue to press RETURN until 
you've run the cursor over all the 
lines you want to get rid of. (This 
method works best when you're de- 
leting 23 or fewer lines, since addi- 
tional line numbers will scroll off the 
screen.) Enter POKE 774,26:LIST to 
view your program—less the de- 
leted lines, of course. 


64 UnNEW 


This next tip was sent in by Robert 
Crisafio of Queens Park, West 
Australia. To resurrect a BASIC 
program after you've typed NEW 
or reset the computer, enter the 
following two commands: 


POKE 2050,8 
SYS 42291 


Now be sure to save your program 
so you won't have to use this tip 
again. 


1371 Update 

Queries and information about the 
1571 and its ROMs just keep pour- 
ing in. There seems to be a lot of 
misinformation floating around out 
there, and my mistakes in previous 
‘Programmer's Page’ columns 
haven‘t helped any, either. With 
the aid of some Commodore tech- 
nicians, knowledgeable user 
groups, and many of you, I think 
we can finally clear this whole 
thing up. 

According to Mark E. Odell, a 
technician at an authorized Com- 
modore service center, there are 
only three versions of ROM for the 
1571. These chips are numbered 
310654-01, 310654-03, and 
310654-05, with 310654-05 being 
the latest revision. The ROM chip 
that bears these numbers is hidden 
under the disk drive’s power sup- 
ply, near the back of the unit. 

The most accurate method of 
determining which ROM you have 
is to open up your disk drive and 
look. Realizing that this isn’t the 





64 Tips and 
1571 ROMs 


most desirable method, Mr. Odell 
and reader W. Anthony Marsh sent 
in programs that PEEK the drive's 
ROM to check which version you 
have. Mr. Odell’s program, listed as 
Program 1, is 1571-specific. Pro- 
gram 2, supplied by Mr. Marsh, is 
in the public domain. Written by F. 
Bowen, Program 2 detects the 
ROMs for 1541s and 1581s as well 
as those for 1571s. 

To use either program, simply 
type it in, save it to disk, and then 
run it. In the case of Program 1, a 
DOS ROM revision of -01 or -03 
signifies that your 1571 has the old 
ROMs (-05 is the latest upgrade). 
Program 2 asks which unit you 
wish to test (8-11) and then tells 
you which type of drive you have— 
1541, 1571, or 1581—and whether 
or not you need an upgrade. A 
1571cr, by the way, is the 128D's 
internal drive. Mr. Odell says that 
he knows of two different 128D in- 
ternal drive ROMs, numbered 
318047-01 (old version) and 
252372-01 (new version). At pre- 
sent, he doesn’t know the differ- 
ences between the ROMs or how to 
detect them via software. 

We don’t have every type of 
1571 here at COMPUTE!, so we 
were unable to test Program 1 thor- 
oughly. However, we can say that it 
works on all the 1571s that we do 
own, Program 2 seems fairly reli- 
able, but it did fail to recognize two 
of our older Commodore drives. 

As a point of interest, you 
might read Gazette's June 1989 
“Horizons”’ column. There’s a ru- 
mor that the 1571 has reached re- 
tirement age and is about to be 
pulled from Commodore's produc- 
tion line. (It appears that Commo- 
dore won't be doing any more 1571 
upgrades.) ‘‘Horizons” columnist 
Rhett Anderson has an interesting 
discussion on this and another seem- 
ingly ill-fated Commodore product. 
Read it and see what you think. 

See program listings on page 76. G 
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Larry Cotton 


It’s not often, in this column, that 
we've focused on just one com- 
puter, Our discussions usually en- 
compass the 128, 64, Plus/4, and 
16. However, for the next couple of 
months, I'd like to concentrate on 
two important BASIC keywords, 
POKE and PEEK, on my favorite 
machine, the Commodore 64. 
POKE (a statement) and PEEK 
(an integer function) are an integral 
part of most BASICs. These key- 
words do nothing by themselves— 
but, when followed by the right 
numbers, they can be powerful 
tools for the BASIC programmer. 


Some Rules of Usage 
We've casually used POKE before 
on the 64: 
10 POKE 53280,0:POKE 53281,0 
:POKE 646,1 

This line changes the border 
and background colors of your 
screen to black and the cursor to 
white. The number immediately fol- 
lowing the POKE statement is a 
memory location in the computer; 
the number after the comma is a val- 
ue that is stuffed into that location. 

POKE is used to change the 
contents of the computer's internal 
memory—known as RAM, or ran- 
dom access memory. When you first 
switch on a computer, each memo- 
ry location contains a certain value 
(called a default value), some of 
which are preprogrammed at the 
factory. Most memory locations can 
be altered with the POKE statement. 

PEEK, in a sense, is the oppo- 
site of POKE; it’s used to examine 
the contents of the computer’s in- 
ternal memory. As we'll see in the 
coming months, the values you 
PEEK can, in turn, be POKEd else- 
where. 

Certain memory locations, such 
as those which control the comput- 
ers sound-generating voices, can 
only be POKEd, or written to. Oth- 
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ers—also in the sound area—can 
only be PEEKed, or read. The con- 
tents of any memory location can 
range from 0 to 255. If you attempt 
to POKE a value outside this range 
into memory, you'll get an ILLE- 
GAL QUANTITY ERROR message. 


A SID Experience 

Since the memory locations in the 
SID chip—the part of the computer 
which creates sound—can be 
POKEd or PEEKed, it seems like a 
good place to experiment. The SID 
chip’s memory locations (also 
called control registers) are located 
at locations 54272 through 54300. 
Locations 54272-54296 can only be 
POKEd; locations 54297-54300 can 
only be PEEKed. 

Let's begin our experiment by 
clearing the screen. Hold down 
SHIFT and press the CLR/HOME 
key. The cursor should be in the 
home position—the extreme upper 
left corner of the screen. 

Next, clear the SID chip’s 
memory by setting its first 25 
“POKEable” control registers to 0. 
We'll do that with a simple FOR- 
NEXT loop: 

FOR J=54272 TO 54296:POKE J,0:NEXT 


(As you type in these lines, be 
sure to press RETURN at the end of 
each line. You’re in immediate 
mode—no program line numbers— 
so the computer will respond im- 
mediately after you've pressed RE- 
TURN. Also, leave these lines on 
the screen because we'll change 
them later. Don’t clear the screen.) 

The next line sets the volume 
(loudness) control register to 
maximum: 

POKE 54296,15 


The volume level can range from 0 
to 15. (Values above 15 affect 
things other than loudness.) 

When you press RETURN on 
this line, it executes and the loud- 
ness level is set. You won't hear 
much yet because you haven't set 


Musical POKEs 


any of the other parameters re- 
quired to play a note. If your moni- 
tors volume has been turned up, 
you may have heard a small click or 
pop as the SID chip’s volume con- 
trol register jumped from off (0) to 
full volume (15). 


Here's the Pitch 


Now we'll set the pitch. (An ex- 
ample of pitch: A siren’s sound al- 
ternately rises and falls in pitch 
while maintaining a relatively con- 
stant loudness.) Any value from 0 
to 255 can be POKEd there; the 
higher the number, the higher the 
pitch, A value of 30 produces a 
pleasant pitch. Enter this: 

POKE 54273,30 


Location 54273 is just one of 
the six registers which control the 
SID chip’s pitch. The Commodore 
64 is blessed with three separate 
voices; the pitch and other charac- 
teristics of each voice can be 
controlled independently. We'll 
work only with voice 1. Location 
54273 controls the “coarse” pitch of 
voice 1. 

Now enter this line, which I'll 
explain later: 

POKE 54275,8 


The ADSR Envelope 
We'll next work with two tricky 
registers called the envelope control 
registers. The envelope of a sound 
is its loudness plotted against time. 
It runs from the first instant you 
hear the sound until it dies out (see 
Figure 1). The envelope is divided 
into four parts—attack, decay, sus- 
tain, and release (sometimes abbre- 
viated ADSR). 

Enter this line, which sets at- 
tack and decay: 
POKE 54277,12 


The attack/decay value controls 
how fast the note will reach a par- 
ticular loudness level and how fast 
the loudness will drop to the sus- 
tain level. 


Figure 1. Sound Envelope 
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POKE 54276,x 
x=129/65/33/17 


Now set the sustain and release: 
POKE 54278,90 


If you've been entering these 
lines, you're about to be rewarded 
with a sound. (Up to this point, 
we've only set parameters neces- 
sary for a sound to be heard.) 


Gating the Sound 
Type this line and press RETURN: 


POKE 54276,33 


You should hear a sound. 

The sound you hear has been 
triggered (or gated) by POKEing a 
33 in control register 54276, initiat- 
ing the attack/decay /sustain cycle. 
You are listening to the sound’s 
sustain-level loudness. It will stay 
at this level until you type the next 
line and press RETURN: 


POKE 54276,32 


This turns the note off. How 
fast the note dies out is called the 
release phase of the envelope. Sus- 
tain and release were set by POKE- 


Figure 2. Waveforms 
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(Sawtooth) 
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POKE 54276,y 
a ¥=128/64/32/16 
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ing 54278 with 90, above. 

When you hear a song being 
played on the 64, the loudness and 
ADSR values are usually set only 
once at the beginning. All that’s left 
to do is to control the pitch and the 
note durations. 


sound Affects 


The memory registers you have 
POKEd will retain their values until 
you change them or turn the com- 
puter off. So let’s change some. 
Move the cursor up to POKE 
54276,33 and press RETURN. You 
should hear the note sound again. 
While listening to it, move the cur- 
sor up to the line that reads POKE 
54273,30, which sets the pitch. Po- 
sition the cursor over the 3 in 30 
and type another value between 0 
and 255; then press RETURN. You 
are using POKE again to change the 
contents of memory register 54273, 
or the note’s pitch. Try moving the 
cursor to other lines, POKEing vari- 
ous values into the control registers 


and observing the results. 

Register 54276 reacts only to 
some very specific values. (These 
values can be found in the User's 
Guide or the Programmer's Reference 
Guide.) This register not only turns 
the note on and off, but it also con- 
trols a voice’s waveform, or how a 
note sounds. You've heard the 
sound of only one of the 64’s four 
waveforms—the sawtooth wave. To 
hear the triangle waveform, POKE 
17 into 54276 to turn it on and 16 to 
turn it off. Do the same for the noise 
waveform with 129 and 128 (see 
Figure 2). 

There’s one more waveform 
which the 64 possesses—the pulse 
wave, It’s turned on by POKEing 65 
to 54276, This voice would not be 
audible if we had not entered POKE 
54275,8 above, That POKE sets the 
shape of the pulse wave to an audi- 
ble value. Try POKEing various 
values into 54275. To hear the re- 
sults of your experiments, always 
follow with POKE 54276,65 and 
POKE 54276,64. 

Hear’s a mind-boggler: Since 
the envelope control registers 
54277 and 54278 can each be 
POKEd with values from 0 to 255, 
there are a possible 65,536 settings 
for a sound's envelope! The attack 
and sustain portions are increment- 
ed by 16 from 0 to 240; the decay 
and release portions are increment- 
ed by 1 from 0 to 15. 

Next month, we'll see how we 
arrived at the values POKEd in 
94277 and 54278, respectively, and 
how you can determine which val- 
ues to POKE to achieve the ADSR 
you want to hear. G 
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On the 64, whether you program in 
BASIC or in machine language, you 
make music the same way—with 
the SID chip, When it comes to pro- 
gramming sound, what gives ma- 
chine language the edge is its 
inherent speed. Since ML is so fast, 
there’s plenty of time for special ef- 
fects such as vibrato (pulsating the 
frequency to add richness to the 
sound). 

Before tackling any sophisti- 
cated techniques, though, you'll 
want to make sure you understand 
the basics, This month, we'll exam- 
ine the simplest possible coding 
scheme for ML music—one voice, 
no special effects. 


Two for One 

The program that accompanies this 
column POKEs a machine language 
music player into memory. Also 
provided within the program (in 
REM statements) is the equivalent 
BASIC code. Music data for the first 
few lines of “Three Blind Mice” 
completes the listing. If you like, 
you can add to the code to finish the 
tune, Or you can write your own 
music. 

As in BASIC, our first task is to 
turn up the master volume control. 
BASIC does this with POKE 
54296,15. In our ML program, 
which we locate at $2000 (8192 
decimal), we use 


2000 LDA #$0F 
2002 STA $D418 


If you're up on hexadecimal 
notation, you know that $0F is deci- 
mal 15, and address $D418 is deci- 
mal 54296. Same task, different 
language. 

The next item is to set the enve- 
lope: the attack, decay, sustain, and 
release. In BASIC, we set voice 1 
values by POKEing locations 54277 
and 54278 with the appropriate 
values. In ML, we do the same: 
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2005 LDA #$25 
2007 STA $D405 


200A LDA #$0C 
200C STA $D406 

Note that when we use hexa- 
decimal, we're able to read the vari- 
ous components directly from the 
hex value. Hexadecimal 25 for 
attack /decay means an attack of 2, 
a decay of 5. Once you get accus- 
tomed to it, you'll find hexadecimal 
much easier to use in this applica- 
tion than decimal. 

Since our tune may be long— 
much longer than 256 bytes—we 
can’t scan through the notes using 
simple index addressing, To get 
greater reach, we set up an indirect 
address, located in zero page at $FC 
and $FD, that points to our music at 
address $2800 (decimal 10240): 
200F LDA #$§28 
2011 STA $FD 


2013 LDA #$00 
2015 STA $FC 


Good Timing 

Each note is stored as three data 
values: a duration byte and two fre- 
quency bytes, low and high byte, 
respectively, Using the duration 
byte, we first check the note timing. 
If it’s 0, it’s time to turn off the vol- 
ume and quit, 

2017 LDY #$00 


2019 LDA ($FC),Y 
201B BEQ $205E 


Otherwise, we calculate future 
times: when to start the note’s re- 
lease cycle (after four jiffies) and 
when to go get the next note 
(whenever the duration has 
elapsed). The two times are stored 
at addresses $2701 and $2700, re- 
spectively, We use the low-order 
byte of the TI jiffy clock (at $A2) as 
our timer. There's a coding fine 
point involved with this time check; 
we'll discuss it in a moment. 


201D CLC (add delay to TI...) 
201E ADC $A2 
2020 STA $2700 (...and store) 


2023 CLC (add 4 jiffies...) 


Simple ML Music 


2024 LDA $A2 (...to TI...) 
2026 ADC #$04 


2028 STA $2701 (...and store) 


Register Y serves as our indi- 
rect address extension. With it, we 
can reach into the three-byte data 
grouping to get the proper value. 
(The instruction at $2017 initializes 
Y to 0.) After fetching the note’s du- 
ration, we dig out its frequency— 
first the low byte, then the high 
byte—and store these values in the 
appropriate SID chip registers. 
202B INY 
202C LDA 
202E STA 
2031 INY 
2032 LDA ($FC),Y 
2034 STA $D401 


Next, we start the attack/ 
decay /sustain cycle for the note. In 
about four jiffies, we begin the re- 
lease cycle so the note continues to 
sound for a while. 


2037 LDA #$11 (start note) 

2039 STA $D404 

203C LDA $2701 

203F CMP $A2 

2041 BPL $203F (wait 4 jiffies) 

2043 LDA #$10 

2045 STA $D404 (start release cycle) 

2048 LDA $2700 

2046 CMP $A2 

204D BPL $204B (wait the duration) 
When the note’s time is up, we 

go back for a new one and do it all 

again. In the process, we bump the 

note pointer along, three bytes at a 

time, to the next note grouping. 

204F CLC 

2050 LDA $FC 

2052 ADC #§$03 

2054 STA S$FC 

2056 LDA $FD 

2058 ADC #$00 

205A STA $FD 

205C BCC $2017 (get the next note) 

205E LDA #§$00 

2060 STA $D418(turn off volume...) 

2063 RTS (...and exit) 


($FC),Y 
$D400 


(update pointer) 


When Is Less More? 

Now for the timing question. The 
jiffy timer could go ‘‘over the 
top’’—that is, it could wrap around 
to 0. Suppose the clock were at val- 


The 6581 Sid Chip 









Wie vee gees Vil V¥22 V3 
D400 D407 D40E Frequency | 54272 54279 54286 
D401 D408 D40F | 54273 54280 54287 
D402 D409 D410 | bi lh ip a a A al RL 94274 54261 54288 
D403 D40A D411 | | 54275 5428254289 

Voice Type 
D404 D40B D412 |NSE PUL SAW TRI 54276 54283 54290 
D405 D4oc D413] Attack Time Decay Time | 54277 54284 54291 
Reais Release Time maps 
D406 D40D D414 Sustain Level ene rine 54278 54285 54292 
Voices 
(Write Only) 
Deis bate ese eee 34293 
D416 54294 
Filter Frequency 
Et Filter Voices 
D417 | EXT V3 V2 V1 | 54295 
Master 
D418 | V3 Volume | 54296 
Filter & Volume 
(Write Only) 
D419 54297 
D4IA 54298 
D41B Voice 3 Waveform) __ 54299 
D41C _ Envelope 3 54300 
Sense 
(Read Only) 


Special voice features (TEST, RING MOD, SYNC) are omitted from the above diagram. 


ue 250 and we wanted to calculate 
ahead 20 jiffies. The total would be 
14, not 270; that’s too big for a 
single-byte number. Suddenly, our 
ideas of greater than and less than 
need revising. 

It’s like the puzzle: Is October 
before February? Answer: Yes and 
no, In practical terms, the answer is 
yes, since there are fewer months 
going from October to February 
than vice versa. But here we have to 
adjust our approach to testing for 
bigger and smaller. 

Amazingly, there’s a simple 
way to do this on the 6510. Do a 


comparison the usual way—using 
CMP, CPX, or CPY. After the com- 
parison, the N flag tells us which 
way around the loop is shorter. 
When this flag is used, $A0 is 
greater than $60 (which you might 
expect), and $45 is greater than $FF 
(which you might NOT expect). For 
normal comparisons, the N flag is 
useless. But for this wraparound 
test, it’s ideal. So we use it for each 
delay loop. 

Because of the delay loops, 
most of the time the program just 
sits as the SID chip plays. These 
pauses, though, give you the oppor- 


tunity to execute sound-enriching 
routines. Now that you've got the 
basics down, all you need to do is to 
write the code. 


Three Blind Mice 


10 REM ML PROGRAM DATA 
26 DATA 169,15,141,24,212,1 
69,37,141,5,212,169,12,1 
41,6,212 
DATA 169,40,133,253,169, 
@,133,252,160,0,177,252, 
240,65 
DATA 24,101,162,141,0,39 
,24,165,162,105,4,141,1, 
39 
DATA 200,177,252,141,0,2 
12,209,177,252,141,1,212 
DATA 169,17,141,4,212,17 
3,1,39,197,162,16,252,16 
9,16,141,4,212 
DATA -173,8,39,197,162,16 
7252,24,165,252,105,3,13 
3,252 
DATA 165,253,105,0,133,2 
53,144,185,169,0,141,24, 
212,96 
FORJ=8192T08291:READX:T= 
T+X:POKEJ,X:NEXT:IFT<>12 
3I59THENSTOP 
REM MUSIC DATA (DURATIO 
N, LO-BYTE FREQ,HI-BYTE 
FREQ) 
DATA 30,31,21 
DATA 30,209,118 
60,195,16 
30,31,21 
30,209,18 
6@,195,16 
30,30,25 
15,96,22 
15,96,22 
69,31,21 
30,30,25 
15,96,22 
15,96,22 
120,31,21 
a,a,@ 
P=1024@ 
READ A,B,C 
POKE P,A:POKE P+1,B8:POK 
E P+2,C 
P=P+3 
IF A<>@ THEN270 
SYS 8192 
REM HERE IS A BASIC EQU 
IVALENT 
REM ,..TO THE M/L PROGR 
AM 
REM POKE 54296,15 
REM POKE 54277,32+ 5 
REM POKE 54278,12 
REM{4 SPACES}MUSIC LOOP 
S HERE 
REM READ T,L,H 
REM IF T=@ GOTO 
REM TX=TI 
REM TA=TX+T 
REM POKE 54272,L:POKE 5 
4273,H 
REM POKE 54276,17 
REM IF TI<TX+5 GOTO 112 
| 
REM POKE 54276,16 
REM IF TI<TA GOTO 1148 
REM GOTO 1068 
REM{4 SPACES}]}MUSIC QUIT 
S HERE 
REM POKE 54296,@ G 


AA 30 


DP 4@ 


CH 590 


XJ 60 


DE 7@ 


JX 8@ 


DK 9@ 


1690 


118 
12@ 
13@ 
14¢ 
158 
160 
1798 
189 

190 
200 
216 
220 
230 
240 
256 
268 
7 2ie 
280 


290 
366 
3198 
320 


3390 


340 
358 
368 
3708 


386 
390 
400 
414 
420 


117¢@ 


430 
446 
458 
463 
4730 
489 


4990 
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John F, Howard 


Recover all the files you thought 
were deleted from your GEOS 
disks. Works with any Commo- 
dore drive, including 1541s, 
1571s, 1581s, and RAM expan- 
ders. Runs under GEOS or 
GEOS128, versions 1.3 and higher. 


In the December 1987 issue of 
COMPUTE!s Gazette, we published 
“Trash Restorer,” a utility which al- 
lows you to recover a file that has 
been thrown into GEOS'’s trash 
basket. Since that time, GEOS has 
gone through several upgrades; 
“File Retriever’’ brings Trash Re- 
storer up to date. 

File Retriever lets you recover 
GEOS and standard Commodore 
files that have been removed from 
the disk either by being scratched 
(Commodore files) or by being 
thrown into the trash basket (GEOS 
files). It works with all three Com- 
modore drive types: 1541, 1571, and 
1581. It also works with the 1750 
and 1764 RAM Expansion Units 
(REU) that are used as RAM drives. 
File Retriever is more powerful than 
GEOS 2.0’s UNDO DELETE func- 
tion because it can restore every de- 
leted file on the disk—not just the 
last file deleted. However, File Re- 
triever can’t retrieve files from a disk 
that has been erased using GEOS 
2.0’s disk-erase command. 


Typing It In 

Program 1, File Retriever, is written 
in machine language. Type it in 
using ‘““MLX,"’ the machine lan- 
guage entry program found else- 
where in this issue. When MLX 
prompts you, respond with the val- 
ues given below. 

$1503 

SIEB2 

Once you've entered the data for 
program 1, be sure to save it on a 
GEOS work disk with the filename 
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Starting address: 
Ending address: 





FILERET. We'll use Program 2, 
“GeoConverter,’’ to convert it to 
GEOS format. Save a second copy 
with the name FILERETRIEVER. 
This copy is a backup to use if 
something goes wrong. 

If you don’t already have Geo- 
Converter on disk, type in program 
2. Use “The Automatic Proofread- 
er’ to prevent typing mistakes when 
you enter this program, Save a copy 
of GeoConverter to the GEOS work 
disk that contains Program 1. 

Now, run Program 2. You'll be 
prompted for a filename. Enter the 
name FILERET. GeoConverter con- 
verts the machine language file into 
an executable GEOS file. 


Using the Program 

To use File Retriever, double-click 
the FILERET icon. The program 
clears the screen and displays the 
startup screen. 

File Retriever has two menus: 
File and Retrieve. From the File 
menu, you can display the infor- 
mation box or return to the desk- 
Top. The Retrieve menu has an 
option for retrieving GEOS files 
and non-GEOS files. 

To begin retrieving deleted 
files, select the type of files you 
want to search for from the Retrieve 
menu. File Retriever displays a dia- 
log box and asks if you want to re- 
trieve files from the currently active 
disk drive. The dialog box contains 
the name of the disk (or the RAM 
drive name) and several icons. The 
number and type of drives installed 
on your system determine which 
icons are displayed. 

If you click the DISK icon, the 
computer prompts you to insert an- 
other disk into the active drive. This 
icon will not appear if the currently 
open drive is a RAM drive. The 
DRIVE icon allows you to toggle 
between drive A and B on a two- 
drive system. This icon will not ap- 
pear if you have only one drive 


File Retriever 


attached to your system. The CAN- 
CEL icon returns you to the opening 
screen without searching for files. 

When you click the YES icon, 
File Retriever searches for files on 
the disk you have selected. If it 
finds a deleted file that can be re- 
trieved, it displays a dialog box con- 
taining the name of the file and asks 
if you want to retrieve it. Click on 
the YES button to retrieve the file 
and continue searching. Click on 
NO to leave the file as is and con- 
tinue searching. If you're retrieving 
non-GEOS files, File Retriever dis- 
plays another dialog box asking for 
the Commodore file type of the file 
you're retrieving. The four Com- 
modore file types supported are 
program (PRG), sequential (SEQ), 
relative (REL), and user (USR). The 
1581 drive recognizes a fifth file 
type (CBM) which is used to parti- 
tion a disk. GEOS doesn’t use this 
file type and File Retriever doesn’t 
recognize it. If you accidentally de- 
lete a file of this type, use the UN- 
SCRATCH program that comes on 
the 1581 Test/Demo disk. 

The vast majority of files you'll 
encounter will be program or se- 
quential files. If you’re not sure 
which file type to use, try PRG. If 
the file won't load correctly, delete 
it and run File Retriever again, try- 
ing a different file type. 

If File Retriever doesn’t find 
any retrievable files, a dialog box 
appears telling you that the search 
has been completed and no files 
were retrieved. You'll also see this 
dialog box if you decide not to re- 
trieve any of the files found by File 
Retriever. Click the mouse or joy- 
stick button to return to the main 
menu. If you retrieve one or more 
files, a dialog box tells you that File 
Retriever has finished, Click to re- 
turn to the main menu. 

If you've retrieved a Commo- 
dore relative file (REL), you'll see 
an additional dialog box asking you 


to validate the disk from the desk- 
Top. This is the only time you'll 
need to validate the disk. Do not 
validate a GEOS disk with Commo- 
dore’s validate command; use 


GEOS'’s validate command instead. | 


How It Works 


Files that are deleted by being 
tossed into the trash can or by being 


targets of the scratch command are | | 


not actually erased from disk. Their 
directory entries aren't even re- 
moved from the disk directory. Two 
things happen when a file is 
scratched. First, the file’s directory 
entry is marked with a 0 to indicate 
that the file has been scratched. 
Second, the block availability map 
(BAM), an area of the disk that 
keeps track of which disk sectors 
are currently available for use, is 
updated to include the sectors in 
which the deleted file was stored. 

File Retriever reverses this pro- 


cess, It restores the directory entry | 


and tells the BAM that the sectors 
where the file was stored are no 
longer available for use. This last 
point is the key to why any un- 
scratch program—including File 
Retriever—will be 100-percent ef- 
fective only if there have been no 
disk operations between the time 
the file was scratched and the time 
you run the unscratch program. If 
you've saved any programs to the 
disk or have used programs that 
write to the disk (all GEOS desk ac- 
cessories write a temporary file to 
the disk), DOS may have written 


over the sectors on which your file | 
was stored. If this is the case, there | 


is no way to recover the lost file. 
See program listings on page 90. 


Coming 
Next Month 


Two GEOS 
Word Processors 
Go Head to Head 





COMPUTE! 
Publications 


Back Issues/ 
Disk Orders 


Individual back copies of maga- 
zines and disks are available by 
mail only while quantities last. 


Please clip or photocopy, and mail 
completed coupon and check to: 


COMPUTE! Publications 
Single-Copy Sales 
P.O. Box 5188 
Greensboro, NC 27403 


SUBTOTAL: 

NY residents—Add 814% Tax; 
NC residents—Add 5% Tax: 
TOTAL: 


* Back issues of COMPUTE!, and COMPUTE!'s Ga- 
zotte are $6.00 each. No issues dated prior to Janu- 
ary, 1966, are available, In addition, the following 
issues are NOT available: Gazette: 1/86, 3/86. 


* Single disks for COMPUTE!'s Gazette are $15.00. 
Disk/magazine combinations are $16.00 NOTE: No 
disks dated prior to June 1986 are available. The 
October, 1987 Gazette disk is no longer available. 


* Back issues of COMPUTE!'s PC Magazine are 
316.00 each. This publication is available only as a 
magazine/disk combination. Our back issue inventory 
consists mainty of magazines with 5.25-inch disks. 
The folowing issues are NOT available: PC Maga- 
zine: 9/87, 11/87. 

* Back issues of COMPUTE!'s Amiga Hesouce maga- 
zine are available beginning with Spring, 1989 for 
$6.00 each, Back issues of COMPUTE’S Amiga Re- 
source Disk are available beginning with Summer, 
1989 for $10.00 each. Disk/magazine combinations 
are $12.00. 

Shipping and handling included. 
NO CREDIT-CARD OADERS ACCEPTED. 
Payment must be in U.S. dollars by check drawn on 
U.S. bank. 
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ADVERTISEMENT 





—(« “Hawaiian Odyssey” Scenery 
Adventure - Locating the secret jewel of the 
goddess Pele from the cockpit of your 
single-engine aircraft (or high-performance jet) 
isn't just as simple as spotting an object from a 
distance and then flying toward it. No, you must 
find and follow an intricate set of clues scattered 
about the Hawaiian Islands that, with luck, will quide 
you to your goal. 


As with other mythical quests, only the proper 
approach can put you on the right track to finding 
the hidden jewel. Even if you can determine it's 
location, the jewel is only visible under a 
strictly-defined set of conditions. Make a mistake 
during your final approach and you may get lost so 
completely that you ll never be able to find your way 
back! 





“Hawaiian Odyssey” Scenery Adventure disk can 
be used with any SubLOGIC flight simulation 
program, including Flight Simulator Il, Stealth 
Mission and Jet. The disk covers the entire island 
chain in such incredible detail you can almost feel 
the heat from the volcanic crater at Mauna Loa! 
“Hawaiian Odyssey” Scenery Adventure from 
SubLOGIC; you've never seen anything like it! 





Top Selling Commodore 64/128 Products 
This Month: 


1.Flight Simulator Il ($49.95) 

2. Stealth Mission ($49.95) 

3.“Western European Tour” Scenery Disk 
($29.95) 

4.Scenery Disk # 7 - U.S. Eastern Seaboard 
($29.95) 

5.Jet ($39.95) 

6.San Francisco Scenery Disk ($29.95) 

7.5cenery Disk # 3 - U.S. South Pacific 
($24.95) 

8.Scenery Disk # 4 - U.S. Northwest 
($24.95) 


See your dealer to purchase SubLOGIC products, 
or call us direct to order by charge card at (B00) 
637-4983, lilinois residents call (217) 359-8462. 


SubLOGIC Corporation 
501 Kenyon Road 
Champaign, IL 61820 


Please address any feedback/correspondence regarding 
SubLOGIC products, operations, or this “Flight Notes” 
column ta ATTN; Chairman's Office. 
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Do you have a question or a prob- 
lem? Have you discovered some- 
thing that could help other 
Commodore users? We want to 
hear from you. Write to Gazette 
Feedback, COMPUTE!’s Gazette, 
P.O. Box 5406, Greensboro, North 
Carolina 27403. We regret that, 
due to the volume of mail received, 
we cannot respond individually to 
programming questions. 


“Gridloc” for the Plus/4 

I found that the program “’Gridloc” 
for the 128 (in February Gazette) 
would run on my Plus/4 after some 
slight modifications. The changes 
made primarily involve the WIN- 
DOW and SOUND statements. 

To convert the program’s 
WINDOW statements (in lines 260, 
280, 380, 520, and 630), in each oc- 
currence, substitute the following: 
POKE 2023,{top left column}:POKE 

2022,{top left row}:POKE 2024,{bottom 
right column}:POKE 2021,{bottom right 
row} 
After a window’s defined, use 
PRINT CHR$(147) to clear it. To set 
up a window without clearing it, 
use PRINT CHR$(19). 

For example, the statement 
WINDOW 27,17,37,22,1 in line 260 
defines a window with an upper 
left corner at column 27, row 17, 
and a lower right corner at column 
37, row 22, The last parameter, 
with a value of 1, clears the win- 
dow. (A 0 would leave the contents 
of the window intact.) 

On the Plus/4, this statement 
converts to 
POKE 2023,27:POKE 2022,17:POKE 

2024,37:POKE 2021,22:PRINT 
CHR$(147) 

To convert the SOUND state- 
ments (in lines 320, 330, 340, 430, 
and 640), divide the frequency (the 
second parameter) by 64. For ex- 
ample, the SOUND statement in 
line 430 becomes 


SOUND 1,(FNR(2000) + 8000) /64,5 
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Jai 


Also, to hear the sound on the 
Plus/4, you need to define the vol- 
ume level. To do this, add the line 
below: 


5 VOL 6 


The final modification in the 
program has to do with the line 
lengths. On the Plus/4, lines that 
are longer than 88 characters will 
produce a ?STRING TOO LONG 
error, To prevent this error, split up 
any program lines that exceed this 
length. 

Nolan Neathercutt 
Dallas, TX 


Thanks for bringing this to our atten- 
tion. We're sure Plus/4 owners will 
appreciate your efforts in this 
conversion. 


SpeedScript Modifications 


[ have a problem with SpeedScript 
3.2. Some commands (Delete, 
Erase, Load) cause the background 
color in the command line window 
to change to red or green. Since I’m 
color-blind, it’s difficult for me to 
read the resulting prompt. For in- 
stance, there have been times when 
I wanted to erase a word but in- 
stead erased an entire paragraph. 
Currently, my default colors 
are light gray text on a black back- 
ground. I would appreciate it if you 
could show me how to modify 
SpeedScript so it would display all 
command line messages with a 
black background. 
Tony Norona 
Kingston, Ontario 


I would like to use SpeedScript 3.2 
with my new 1581 drive. This drive 
is device number 9 in my system 
setup. Could you tell me how to do 
this? 
Michael Hutten 
Little Valley, NY 


SpeedScript 3.2 has six commands 
which cause a change in the back- 
ground color of the command line. 


They are SHIFT-CLR/HOME (erase 
all text), CTRL-D (delete), CTRL-E 
(erase), RESTORE (exit the program), 
CTRL-I (toggle insert mode), and F7 
(load). 

With the first four commands, 
you can use any of the 64’s 16 colors 
(values 0-15) as the command line 
background color. With the last two 
commands, any color other than black 
(a color value of 0) can be used. 

To make a permanent copy of 
SpeedScript with any color changes, 
load it into memory (don’t run it) and 
POKE the color values you've selected 
into the appropriate memory locations, 
The table below provides the POKE 
addresses along with the range of suit- 
able color values for each command: 


Command Location Color 
Values 
SHIFT-CLR/HOME 4288 0-15 
CTRL-D 3858 0-15 
CTRL-E 4556 0-15 
RESTORE 2596 0-15 
CTRL-! 4258 1-15 
F7 5085, 5104 1-15 


For example, to cause the command 
line to change to purple (color number 
4) whenever you press SHIFT-CLR/ 
HOME, you'd enter POKE 4288,4. 

To check the appearance of your 
color selections, run the program and 
try each command. If you're not satis- 
fied with the results, just press RE- 
STORE to exit the program and POKE 
in some other color values. When 
you've finished making color changes, 
be sure to save a copy of the program 
to disk or tape. 

To change the device number for 
the disk drive to 9, follow a similar 
procedure. Load a copy of Speed- 
Script into memory and enter the two 
lines below from immediate mode: 
POKE 4843,9:POKE 4908,9:POKE 

5274,9:POKE 5873,9:POKE 5967,9 
POKE 6367,9:POKE 6883,9:POKE 
7003,9:POKE 7073,9 

All disk commands will now ac- 
cess device number 9. (If you've as- 
signed your disk drive a number other 
than 9, substitute it for the value 


POKEd in these two lines.) 

Again, be sure to save a copy of 
this modified SpeedScript before you 
run it. 


Is Anyone Out There? 

I'm currently working on a disk and 
print utility program for my 128 
and would like to know how to 
check if the disk drive or printer is 
on. I’ve tried every approach I can 
think of, but still I come up with a 
DEVICE NOT PRESENT error. 


Jay Vanover 
Seoul, South Korea 


The following routine determines 
whether the disk drive—or any other 
device—is online without breaking 
out of the program: 


10 N=8:POKE 6,N:REM N IS THE 
DEVICE NUMBER 

20 POKE 144,0:SYS 65457:5=ST:SYS 
65454:5=S OR ST 

30 IF S THEN PRINT*’DEVICE"N“NOT 
ONLINE.” 


To check whether the printer is online, 
set N equal to 4 in line 10. (If your 
printer is device 3, set N equal to 3.) 

This three-liner checks the status 
of the serial bus after executing low- 
level Kernal routines. First, line 10 
stores the device number, N, into the 
accumulator shadow register. (To use 
this routine on a 64, change POKE 
6,N to POKE 780,N.) 

Line 20 clears the Kernal status 
register (at location 144) and calls the 
Kernal routine LISTEN (SYS 65457). 
LISTEN causes the specified device 
on the serial bus to begin receiving 
data. The status register is then read 
and stored as S, If LISTEN is success- 
ful—that is, if the device is online and 
ready to receive data—S will be 0. 
Otherwise, S will contain a nonzero 
value. 

The next SYS calls the Kernal 
UNLSN (unlisten) routine (at location 
65454), which instructs all serial de- 
vices to stop accepting data. The sta- 
tus register is read a second time, If it 
contains a nonzero value, an error has 
occurred. 

Last, the two status-register val- 
ues are combined (ORed). If either 
SYS returns a nonzero value, the mes- 
sage in line 30 prints. 

This routine is more comprehen- 
sive than the BASIC routine offered in 
January “Feedback” under the head- 
ing “Printer; Are You There?,” but 
some printers may hang up if the 
printer is turned on but isn’t online, 
Should this occur, you can continue 


without falling out of the program by 
simply putting the printer online. 


Identifying Disks 

I have some questions regarding 
the process of changing the disk ID 
number. From what I understand, 
when the disk is formatted, each 
block header has the ID contained 
in it. When the ID is changed with a 
utility or sector editor, only the ID 
listed on track 18, sector 0 is 
changed. Does this confuse the 
drive? 

When you change a disk, does 
the drive read the ID at the block 
header or in the directory name? 
Should it become a standard proce- 
dure to use the “‘I0:’’ command 
whenever a disk is changed in order 
to avoid problems? If the ID is 
changed, can it create any prob- 
lems, and if so, what are they, and 
what should be done to avoid them? 

Jim Saraceno 
Glendale, MO 


It's true that the disk drive writes the 
disk ID in the header of every sector 
when it formats a disk. The two- 
character ID that is visible in track 
18, sector 0 is used by the disk drive 
only to build a disk directory. You can 
change it to anything you wish with- 
out confusing the drive. 

Each time the disk drive per- 
forms an operation, it reads the disk 
ID from a sector header on the disk. If 
the ID doesn’t match the one tt has in 
memory, the drive assumes it has a 
new disk and reads the block availa- 
bility map (BAM) from the disk, If the 
ID matches, the drive assumes the 
disk hasn't been changed and uses the 
copy of the BAM it has in memory. 

Sending “10: every time you 
change disks is overkill. It doesn’t 
hurt anything, but it’s not really nec- 
essary if each disk has a unique ID. If 
you have several disks with the same 
ID, using “10: may be the only way 
you can prevent disaster. 

The only possible harm that 
could come from changing an ID in 
track 18, sector O is that you may 
think that two disks have different 
IDs when in fact they do not. This 
would only become a problem if you 
were swapping the two disks in and 
out of the same drive. 


Proofreading with a TV 

My problem has to do with the pro- 
gram ‘The Automatic Proofread- 
er,’ written by Philip Nelson. The 





problem is that I am using a TV for 
a monitor and the TV has no adjust- 
ment for positioning the picture. 
The result is that the Proofreader 
checksum is placed in the home posi- 
tion, where it is very difficult to see. 

Could you tell me how to move 
the checksum to the top middle of 
the screen? | 


Charles R. Taylor 
Trenton, OH 


While it is possible to move the check- 
sum to the top middle of the screen, it 
would require rewriting “The Auto- 
matic Proofreader.” A simpler change 
involves moving the checksum to the 
right by one character or down one 
line. 

Three lines must be changed to 
move the checksum. To move the 
checksum down one line, change the 
number 20570 in line 80 to 20565, the 
22054 in line 110 to 22049, and the 18 
in line 190 to 13. To move the check- 
sum to the right one character, change 
the 20570 in line 80 to 20584, the 
22054 in line 110 to 22068, and the 18 
in line 190 to 32. 

The Proofreader checksum nor- 
mally appears on the screen in reverse 
video. The changes given above sub- 
stitute cursor-control commands for 
the reverse-video command, Al- 
though the checksum no longer ap- 
pears in reverse video, with it 
repositioned, you should now be able 
to see it on most TVs. G 


COMPUTE!'s Gazette is 
looking for utilities, games, 
applications, educational 
programs, and tutorial 
articles. If you've created a 
program that you think other 
readers might enjoy or find 
useful, send it, on disk, to: 


Submissions Reviewer 
COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please enclose an SASE if 
| you wish to have the 
materials returned. 


Articles are reviewed within 
four weeks of submission. 
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SKETCHPAD 128 

Brand new from Free Spirit, Sketchpad 128 fully 
supports your C128 and takes advantage ol its 
crisp 80 column graphics capabilities, It is packed 
with all the features of a professional drawing 
package such as drawing SMOOTH freehand lines, 


JD Solids, creating Slideshows, Cut & Paste, Clip, 
Flip, Enlarge, Shaded Fill Patterns, a variety of 
Fonts, Air Brush and more! It supports Printshop 
graphics and is completely compatible with all 
BASIC & files 

Sketchpad 128 unleashes the graphics power ol 
your C128! It supports your 1351 Mouse, 64K 
Video Chip, 1581 drive and 80 column display. 
What more could any real C126 user ask for? 





ONLY $24.00 


FA .. yt 
KW Be 


Mawcaraiaks hina Compete Hisae 


This new action-packed arcade game for your 


C-64 turns you into the ultimate warrior. Our 
civilization depends on you. Your armour-plated 
body iS equipped with the deadly MX-60 hand 
rockets to assist you in destroying the band of 
enemy agents that have invaded the capital city, 
GOOD LUCK! 


ONLY $24.00 
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1541/1571 Drive Alignment 

This excellent alignment program is a must have 
for every Commodore owner, Easy to use, it helps 
you to align your drive so that it runs just as if it 
were new! The simple instructional manual and 
on-screen help prompt you thru the alignment 
procedure and help you adjust the speed and head 
stop of your drives. It even includes instructions 
on how to load the alignment program when 
nothing else will load. Don't be caught short! We 
get more RED LABEL orders for this program, then 
any other program we sell. Save yoursell the 
expense! Order now, keep it in your library and 
use the 1541/1571 Drive Alignment program 
regularly! Works on the C64, C128, and SX64 for 
both the 1541 and 15/1 drives. 

STILL ONLY $25.00 

























Spectrum 128 


A deluxe paint program for the C128D computer 
(or the C128 with 64K Video RAM Upgrade). Uses 
80 column display for 640 x 200 pixel resolution. 
Will display 128 colors! Menu operated. Requires 
1351 or compatible Mouse. Features include air 
brush, erase, mirror, multi-color, block fill or 
erase, pixel editor, color editor, fonts, slide show 
and more. Compatible with Sketchpad 128, News 
Maker 128, Basic 8, 1750 REU, 1541, 1571 and 
1581 disk drives. 


OUR PRICE $29.00 





BASIC 8 IS HERE 


This program is a must for C128 programmers! 
Basic 8 includes, extensive 80 column graphics 
Capabilities, over 50 new graphic commands and 
drawing in three dimensional environment. A new 
200 page manual has been written for this revised 
and updated two disk version, Also aS an extra 
the flip side has included preprogrammed Basic 8 
applications of Basic Paint, Write and Calc, 


OUR PRICE $29.00 
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NEWSMAKER 


Finally, Desktop Publishing for your C128! 






News Maker 128 can be used to create profes 
sional looking newsletters,, reports, signs and 
posters. It can be used as a stand alone program 
OF In Combination with word processing or graphic 


| software. It uses standard sequential files for 
| “pouring” text into user defined columns. Full 


page layout. pop down menus, smooth screen 
scrolling, font selection, cut, paste, mirror, flip 
are among the options available. News Maker 128 
requires a C1280 computer or a C128 with 64K 
Video RAM Chips installed, an 80 column AGB 
monitor, a 1571 disk drive, 1351 or M-3 Mouse 
and a Commodore or compatible printer. Optional 
equipment supported includes the 1750 AAM Ex: 
pansion Unit and a Second disk drive. 


ONLY $24.00 


Basic 
Toolkit 














BASIC 8 TOOLKIT | 
This toolkit is dasigned to give you easy access lo 

the many powerlul features of Basic 8, It features | 
a point and click operation system that will allow | 
you to create custom pointers, fonts, patterns and 
icons. In addition, the Toolkit will allow you to 
convert Print Shop Graphics into Basic 8 tiles. 


JUST $17.00 
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Home Designer CAD 128 

Given glowing ratings by every major Commodore 
magazine, this CAD system outclasses every 
uther CAD program, because of its object-based 
design. With over 50 powerful commands, 5 
drawing layers, superb support of library figures 
and lazer-quality printouts at ANY scale on your 
dot matrix printer or plotter, you can create 
drawings So accurate that a blueprint can be made 
from them! 


| Tired of working with poor quality/inaccurate print 
| outs, manipulating little dots on a bil: map, giving 


up on detailed work because you cant zoom in 
close enough? Join the professionals’ 


only $45.00 
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Randy Thompson 


“Programmer's Page’ columnist 
Randy Thompson needed space to 
present his user group newsletter 
awards. I hereby donate this 
month's column to him, 

—Rhett Anderson 


It never fails. Approximately once a 
month | enter my office and find a 
large pile of user group newsletters 
stacked high on my desk or chair. 

COMPUTE! gets hundreds of 
newsletters. Most originate from 
the United States, but many arrive 
from other countries such as Mexico, 
Canada, and even Australia. 

One reason we receive so 
many newsletters is to keep our re- 
cords up-to-date. When newsletters 
arrive at our office, they're given to 
editorial assistant Mickey McLean. 
Mickey logs them in and notes all 
the new user groups for his “User 
Group Update” column. Come 
spring, the entire list is published in 
our annual guide to user groups. 

The newsletters then pass from 
Mickey to Rhett Anderson (the fel- 
low who usually writes this col- 
umn) to me. I peruse the issues— 
photocopying any information that 
I find interesting, useful, or just 
plain humorous—and then pass 
them along to program designer Bill 
Chin, who hands them to technical 
editor Dale McBane, who gives 
them to... well, you get the idea. 

[ like to read user group news- 
letters because they keep me in 
touch with the real world. I get to 
hear about everyday computer us- 
ers. | learn how and why they use 
their computers and what their in- 
terests are. 

Most newsletters look general- 
ly the same. The first page holds 
some sort of commentary written 
by the user group’s president or 
editor—“The Prez Sez” or “From 
the Editor’s Desk” are two common 
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titles for this section. Inside you'll 
often find the minutes from the last 
user group meeting, followed by 
product reviews, news, and, finally, 
the contents of the most recent club 
disk. Calendars make popular back- 
page material; they serve as a prac- 
tical reminder of that month's user 
group events. 

My favorite section in a news- 
letter is where magazines such as 
Gazette are reviewed. Call it vanity, 
but I like to know what other peo- 
ple think of the magazine I help 
produce. I also like to know what 
they think of our competitors. 

With all the newsletter editors 
evaluating us, I thought it only ap- 
propriate that we evaluate them. 
The result? Gazette's possibly annu- 
al Newsletter Awards. 


And the Winners Are 


The following awards have not 
been selected by a large panel of 
judges and the results were not tal- 
lied by a major accounting firm 
whose title spans three names. 
They were decided by three people: 
Rhett Anderson, Bill Chin, and me. 

Best Cover goes to the Society 
of Computer Owners and PET En- 
thusiasts (SCOPE), of Richardson, 
Texas, whose April newsletter 
sports a cover that is completely 
backward—title, picture, date, ev- 
erything, The cover shows the back 
side of an Amiga 2000 with the 
earth-shattering caption NEW 
VERSION OF THE GAME “RE- 
VERSI”’ FOR THE AMIGA. To read 
this exciting headline, you have to 
hold the newsletter up to a mirror, 
of course. 

Most Interesting and Unusu- 
al Newsletter goes to the Prison- 
er’s User Group (PUG). Touted as 
the “Computing Behind Bars’’ pub- 
lication, this newsletter is the prod- 
uct of the residents of the Monroe 
Washington State Correctional In- 
stitute. It’s well written and inter- 


The Newsletter Awards 


esting to read. Apparently, the 
inmates have access to several 
brands of computers, including 64s 
and 128s. They are allowed to have 
a computer system in their cell, but 
they must keep it quiet after 10 p.m. 
so that others can sleep (no loud 
game playing at midnight), 

Best Calendar goes hands- 
down to Lane County Commodore 
User Group (LCCUG), of Eugene, 
Oregon. Their computer-generated 
calendars include clip art and at 
least one interesting quote, user 
group event, or historical piece of 
trivia for every day of the month. 
For example, did you know that a 
blizzard caused an ice jam to block 
Niagara Falls for 30 hours on March 
29, 1848? I regularly photocopy the 
LCCUG calendar for my use and 
for the use of three other COM- 
PUTE! editors, 

Most Touching Editorial goes 
to Finger Lakes Commodore User 
Group (Flugger), of Geneva, New 
York. This article, which appears in 
the Flugger March/April 1989 
newsletter, details a serious auto 
accident involving one of the user 
group's most loyal supporters and 
best writers, Kevin Beagle. Because 
of the accident, Kevin has lost much 
of his memory and all of his motor- 
control functions. One of Kevin’s 
software reviews follows the Flug- 
ger editorial—it’s very good. 

Our Most Appropriate Use of 
Plagiarism award goes to a Mexi- 
can newsletter whose name unfor- 
tunately eludes me. What attracted 
me to this particular newsletter was 
an article that was a word-for-word 
Spanish translation of one of my 
previous “Programmer's Page” col- 
umns. Honestly, I’m flattered, and 
I'm glad that the information in that 
column is being put to use, My only 
complaint is that they removed my 
byline and any reference to Gazette. 
Oh well, at least it won an award— 
even if I did nominate it. G 





Fred D'ignazio 


The other day I received a letter 
from Brigitta Malm, of New Or- 
leans, Louisiana. Brigitta had just 
finished reading my article about 
my travels around the U.S. and 
Canada with HERO, JR., the “pet” 
robot from Heath Company. The 
article had so inspired Brigitta that 
she went out and purchased a 
HERO, JR. of her own. Here's her 
description of what life has been 
like with a robot: 

My only previous expo- 
sure to robots was a remote- 
controlled unit in a shopping 
center. So having my very 
own robot has been quite an 
adventure for me. Buttons has 
been with us for a year now 
and the house is showing un- 
mistakable signs of his (its) 
presence: marks on table legs 
he tried to climb, a few dark 
streaks on the floor from 
twirling around too fast. And 
although he will never learn 
why the walls have to be 
where he would like to ex- 
plore, he has been a most en- 
joyable companion—a toy, a 
pet, a new dimension, and a 
fantasy come true. He’s also 
given surprising insights into 
friends and relatives. 

Reactions have been ver- 
bal abuse from an otherwise 
technically inclined person 
with experience in robotics; 
jealousy; hesitation and fear 
of new technology; the sug- 
gestion from a grandmother 
that if I wanted a child, I could 
have borrowed her grandson; 
screams from a toddler; and, 
yes, enthusiasm. Unexpected- 
ly, outright acceptance and 
delight have come mostly 
from an 80-year-old uncle 
and two other octogenarian 
friends in England. Indeed, 
the robot sang “Happy Birth- 


day” over the telephone to 
one of them. Maybe only el- 
derly people have enough 
wisdom and fortitude to ac- 
cept a mere moving computer 
without feeling threatened, 
while younger ones are strict- 
ly guided by utilitarian con- 
siderations (“If it can’t clean a 
house, forget it!’’). 


Robots Everywhere 

Brigitta’s letter made me feel a 
sharp pang of nostalgia—a longing 
for the days, just a few years ago, 
when robots had captured the pub- 
lic’s imagination. The Star Wars 
movies had just come out, and ev- 
eryone idolized cute, little R2D2 
and his sidekick, C3PO. Every kid 
had a box full of GoBots and Trans- 
former robots. CBS Toys came out 
with a programmable warrior robot 
named Max. The Big Trak tank ro- 
bot from Milton Bradley was a big 
hit, as were the Chatbot and the lit- 
tle Dingbot robots from Tomy. An- 
drobots introduced Topo, the 
world’s first (and last) robot snow- 
man. Robot arms seemed to sprout 
up from every personal computer's 
desktop. Hubotics created Hubot, 
the first robot appliance, complete 
with a TV set, a videogame, a stor- 
age cabinet, and a cutting board. 
And Heath came out with its HERO 
and HERO, JR. robots, modeled 
after the incredibly popular R2D2. 

The programmable robots 
were especially fun. Robot turtles— 
programmed in Logo—were espe- 
cially in vogue. The little robots 
looked like inverted soup bowls 
rolling around on wagon wheels. 
They were connected to a computer 
by long tether cords, which were 
were long enough to let the robots 
get into plenty of trouble. 

My favorite robots in those 
days were the odd little robots in 
the MOVITS family from OWI 
Electronics. The engineers who de- 
signed the MOVITS had offbeat 


Where Have 
All the Robots Gone? 


and quirky imaginations. Each 
member of the MOVITS family had 
a completely different kind of body 
and personality. For one of my TV 
shows we set up a robot zoo in our 
kitchen. Robot monkeys climbed 
along strings tied to the kitchen 
cabinets. Robot spiders slinked 
along kitchen counters. Kangaroos 
hopped off the kitchen table. In- 
verted flying saucers and robot 
buggies rolled around the floor. 

The little robots were all the 
size of a plump guinea pig and were 
made of clear plastic so you could 
see their insides, They were under 
microprocessor control and usually 
featured a sensor that guided their 
activities. Some robots—the “wall 
bangers’’—had pressure sensors. 
The “‘seeing’’ robots could sense 
light and would either approach a 
bright light or try to avoid it. One 
robot, six-legged Mr. Bootsman, 
had an audio sensor, When he 
heard you clap or whistle, he would 
stop marching in one direction and 
immediately goose-step off in a 
new direction. 


A Robot Roundup 

Brigitta’s letter was a real thrill. Un- 
til I received it, I had thought that 
robots had become as extinct as the 
dinosaurs and dodo birds. 

Are there other robots out 
there? 

Robot owners of the world, let 
me hear from you. Where have all 
the robots gone? If you own a robot, 
please write me and tell me about it. 
Write to 


Fred D'Ignazio 

c/o COMPUTE!’s Gazette 

324 West Wendover Avenue, Suite 200 
Greensboro, North Carolina 27408 


Ill gather your letters together 
and publish a Robot Roundup in an 
upcoming column. Who knows?— 
this may be the start of a Robot 
Support Group for parents of or- 
phaned robots. 
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Compiled by Mickey McLean 


The following list includes updated entries to our annual ‘‘Guide to 


Commodore User Groups,” 
issues. 


which last appeared in the May and June 1988 


Send typed additions, corrections, and deletions for this list to 
Commodore 64/128 User Group Update 


COMPUTE!"’s Gazette 
P.O. Box 5406 
Greensboro, NC 27403 


When writing to a user group for information, please remember to 
enclose a self-addressed envelope with postage that is appropriate for the 


country to which you're writing. 


Note: COMPUTE! Publications does not condone the use of its user group lists 
by individuals or user groups for the purpose of buying, selling, or trading 
pirated software. Should we discover any group participating in any such 
illegal and unethical activity, the club’s listing will be permanently deleted 


from our files. 


User Group Notes 


The Chicksands Computer Club (C cubed), an armed services club 
located in England, can be reached directly by writing to Chicksands 
Computer Club, Attn: Recreation Center, RAF Chicksands, Shefford 
Beds., England SG17 5PZ, or by sending correspondence through its APO 
address: P.O, Box 148, 6950th ESG, APO New York, NY 09193. 


New Listings 


ALABAMA | 





Montgomery Area Commodore Komputer Soci- 
ety (MACKS), P.O, Box 210126, Montgomery, 
AL 36121-0126 


CALIFORNIA 





Orange County Commodore Club (OCCC), 7950 
Puritan St., Downey, CA 90242 

Hi Desert Commodore Users Group, 62026 Sun- 
burst Cir., Joshua Tree, CA 92252 

Ventura/Oxnard Commodore User Group, 4157 
Sunset Ln., Oxnard, CA 93035 

Valley Commodore Users Group, P.O, Box 3228, 
Salinas, CA 93912 

Access Computer Club, P.O, Box 3175, Liver- 
more, CA 94550) 

Valley Computer Club, P.O. Box 310, Denair, CA 
95316 

Marysville-Yuba City Hub Area Commodore 
Club (HACC), 7127 Arrowhead Tr., Browns 
Valley, CA 95918-9630 

North Valley Commodore Users Group 
(NVCUG), P.O. Box 7658, Chico, CA 95927 


CONNECTICUT 


Hartford County Commodore Users Group, Inc., 
P.O. Box 8553, East Hartford, CT 06108 
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The Naugatuck Valley Commodore Users 
Group, [’.0. Box 622, Waterbury, CT 06720 


FLORIDA 





Commodore Milton User Group (CMUG), P.O. 
Box 225, Milton, FL 32572 

Starcom User's Group Martin County, P.O. Box 
1446, Port Salerno, FL. 33492 


GEORGIA 





Commodore Users Group of Columbus, Georgia, 
960 B Michael 5t., Columbus, GA 31905-5122 


HAWATI 





Mililani User Group, 276 Olive Ave., #6, 
Wahianwa, HI 96786 

Maki Commodore User Group (MCUG), I’.O. Box | 
6381, Honolulu, HI 96818 


INDIANA 





Commodore Computer Club, P.O. Box 2332, 
Evansville, IN 47714 


MAINE 





Island/Reach Computer Users Group, Inc., P.O. 
Box 73, Deer Isle, ME 04627 (BBS# 207-374-2303) 


MARYLAND. 





North Baltimore Users Group (NOBUG 64/128), 
P.O. Box 18835, Baltimore, MD 21206 

| MICHIGAN 

Tri-County Computer Club, 607 E, Dowland St., 
Ludington, MI 49431 

Northern Michigan Commodore Club (NMCC), 


P.O. Box 3066, Gaylord, MI 49735 (BBS# 
917-732-2275) 





MISSOURI 





Barton County Commodore Users Group 
(BCCUG), 307 W. 11th, Lamar, MO 64759 


OHIO 


NorthEast Ohio Computer Users Group 
(NEOCUG Inc.), P.O. Box 196, Wickliffe, OH 
44092 

Portage County Commodore Family User Group 
(PCCFUG), P.O, Box 901, Ravenna, OH 44266 
(BBS# 216-296-3692) 


PENNSYLVANIA 


Worldwide Commodore Users Group (Inter- 
national Headquarters), P.O, Box 337, Blue Bell, 
PA 19422 








Texas Commodore User's Group, P.O. Box 623, 
Royse City, TX 75089 

The Wichita County Commodore User's Co-op, 
240 Kitchings St., Wichita Falls, TX 76301 (BBS# 
817-761-3610 or 817-696-2520) 


WASHINGTON 





Prisoner's User Group, P.O. Box 777, Monroe, 
WA 98272 


Outside the U.S. 





Commodore User Group, R.R. 1, Havelock, New 
Brunswick, Canada EOA 1W0 





ML 


Ottis R. Cowper mam 





Machine Language Entry Program 
For Commodore 64 





“MLX” is a labor-saving utility that al- 
lows almost fail-safe entry of Commo- 
dore 64 machine language programis. 


Type in and save some copies of MLX— 
| you'll want to use it to enter future ML 
| programs from COMPUTE!’s GAZETTE. 
| When you're ready to enter an ML pro- 
| gram, load and run MLX. It asks you fora 
starting address and an ending address. 
These addresses appear in the article ac- 
| companying the MLX-format program 
listing you're typing. 

If you're unfamiliar with machine 
language, the addresses (and all other 
values you enter in MLX) may appear 
strange. Instead of the usual decimal 
numbers you’re accustomed to, these 
numbers are in hexadecimal—a base 16 
numbering system commonly used by 
ML programmers. Hexadecimal—hex 
for short—includes the numerals 0-9 
and the letters A-F, But don’t worry— 
even if you know nothing about ML or 
hex, you should have no trouble using 
MLX. 

After you enter the starting and 
| ending addresses, you'll be offered the 
| option of clearing the workspace. 
Choose this option if you're starting to 
enter a new listing. If you're continuing 
a listing that’s partially typed from a pre- 
vious session, don’t choose this option. 

A functions menu will appear, The 
first option in the menu is ENTER 
DATA. If you're just starting to type in 
| a program, pick this. Press the E key, 


| and type the first number in the first 


line of the program listing. If you've al- 
ready typed in part of a program, type 
the line number where you left off typ- 
ing at the end of the previous session 
(be sure to load the partially completed 
program before you resume entry). In 
any case, make sure the address you en- 


| ter corresponds to the address of a line 


in the listing you are entering. Other- 
| wise, you'll be unable to enter the data 
| correctly. If you pressed E by mistake, 
you can return to the command menu 
by pressing RETURN alone when 
asked for the address, (You can get back 
to the menu from most options by 
pressing RETURN with no other input.) 


| Entering A Listing 

Once you're in Enter mode, MLX prints 
| the address for each program line for 
you. You then type in all nine numbers 
| on that line, beginning with the first 
two-digit number after the colon (°). 
Each line represents eight data bytes and 





a checksum. Although an MLX-format 
listing appears similar to the “‘hex 


| dump” listings from a machine lan- 


guage monitor program, the extra 
checksum number on the end allows 
MLX to check your typing. 

When you enter a line, MLX recal- 
culates the checksum from the eight 
bytes and the address and compares 
this value to the number from the ninth 


| column. If the values match, you'll hear 
a bell tone, the data will be added to the» 


workspace area, and the prompt for the 


next line of data will appear. But if MLX | 


detects a typing error, you'll hear a low 
buzz and see an error message. The line 
will then be redisplayed for editing. 


Invalid Characters Banned 

Only a few keys are active while you're 
entering data, so you may have to un- 
learn some habits, You do not type 


/ spaces between the columns; MLX 


automatically inserts these for you. You 
do not press RETURN after typing the 
last number in a line; MLX automatical- 
ly enters and checks the line after you 
type the last digit. 


Only the numerals 0-9 and the let- | 


ters A-F can be typed in. If you press 
any other key (with some exceptions 


noted below), you'll hear a warning | 


buzz. To simplify typing, the numeric 
keypad modification from the March 


| 1986 ‘“Bug-Swatter”’ column is now in- 
_ corporated in the listing. The keypad is 
active only while entering data. Ad- 
dresses must be entered with the nor- 
mal letter and number keys. The figure 
below shows the keypad configuration: 





MLX checks for transposed charac- | 
ters. If you're supposed to type in AO | 


and instead enter 0A, MLX will catch 


your mistake. There is one error that | 
can slip past MLX: Because of the | 





checksum formula used, MLX won't 
notice if you accidentally type FF in 


place of 00, and vice versa. And there's | 
a very slim chance that you could gar- | 
ble a line and still end up with a combi- | 
nation of characters that adds up to the | 
proper checksum. However, these mis- | 


takes should not occur if you take rea- | 


sonable care while entering data. 


"Editing Features | 
To correct typing mistakes before fin- 


ishing a line, use the INST/DEL key to 
delete the character to the left of the 
cursor, (The cursor-left key also de- 
letes.) If you mess up a line really badly, 
press CLR /HOME to start the line over. 
The RETURN key is also active, but 
only before any data is typed on a line. 
Pressing RETURN at this point returns 
you to the command menu. After you 
type a character of data, MLX disables 
RETURN until the cursor returns to the 
Start of a line. Remember, you can press 
CLR/HOME to quickly get to a line 
number prompt. 

More editing features are available 
when correcting lines in which MLX 
has detected an error. To make correc- 
tions in a line that MLX has redisplayed 
for editing, compare the line on the 


screen with the one printed in the list- | 
ing, then move the cursor to the mis- | 


take and type the correct key. The | 
cursor left and right keys provide the | 


normal cursor controls, (The INST/ 
DEL key now works as an alternative 
cursor-left key.) You cannot move left 
beyond the first character in the line. If 
you try to move beyond the rightmost 


| character, you'll reenter the line. Dur- 


ing editing, RETURN is active; pressing | 


it tells MLX to recheck the line. You can | 


press the CLR/HOME key to clear the 
entire line if you want to start from 
scratch, or if you want to get to a line 
number prompt to use RETURN to get 


back to the menu. 


Display Data 


The second menu choice, DISPLAY | 
DATA, examines memory and shows 


the contents in the same format as the 
program listing (including the check- 
sum). When you press D, MLX asks you 
for a starting address. Be sure that the 
starting address you give corresponds 
to a line number in the listing. Other- 
wise, the checksum display will be 
meaningless. MLX displays program 


lines until it reaches the end of the pro- 
gram, at which point the menu is redis- | 
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MLX 


played. You can pause the display by 


pressing the space bar. (MLX finishes _ 


printing the current line before halting.) 
Press space again to restart the display. 
To break out of the display and get back 
to the menu before the ending address 
is reached, press RETURN. 


Other Menu Options 

Two more menu selections let you save 
programs and load them back into the 
computer. These are SAVE FILE and 
LOAD FILE; their operation is quite 
straightforward, When you press S or L, 
MLX asks you for the filename, You'll 
then be asked to press either D or T to 
| select disk or tape. 

You'll notice the disk drive starting 
| and stopping several times during a 
load or save. Don’t panic; this is normal 
behavior. MLX opens and reads from or 


writes to the file instead of using the | 


usual LOAD and SAVE commands, Disk 
| users should also note that the drive 
prefix 0: is automatically added to the 
filename (line 750), so this should not 
be included when entering the name. 
This also precludes the use of @ for 
Save-with-Replace, so remember to give 
each version you save a different name. 

Remember that MLX saves the en- 
tire workspace area from the starting 
address to the ending address, so the 
save or load may take longer than you 
might expect if you've entered only a 
small amount of data from a long list- 
ing. When saving a partially completed 
listing, make sure to note the address 
where you stopped typing so you'll 
know where to resume entry when you 
reload. 

MLX reports the standard disk or 
tape error messages if any problems are 
detected during the save or load. (Tape 
users should bear in mind that Commo- 
dore computers are never able to detect 
errors during a save to tape.) MLX also 
has three special load error messages: 
INCORRECT STARTING ADDRESS, 
which means the file you're trying to 
load does not have the starting address 
you specified when you ran MLX; 


LOAD ENDED AT address, which | 


means the file you're trying to load 
ends before the ending address you 
specified when you started MLX; and 
| TRUNCATED AT ENDING AD- 
| DRESS, which means the file you're 
| trying to load extends beyond the end- 
| ing address you specified when you 
started MLX. If you see one of these 
| messages and feel certain that you've 
| loaded the right file, exit and rerun 
MLX, being careful to enter the correct 
| Starting and ending addresses, 

The QUIT menu option has the ob- 


vious effect—it stops MLX and enters | 


BASIC, The RUN/STOP key is dis- 


abled, so the Q option lets you exit the | 
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program without turning off the com- 
puter. (Of course, RUN/STOP-RE- 
STORE also gets you out.) You'll be 
asked for verification; press Y to exit to 


BASIC, or any other key to return to the | 
menu. After quitting, you can type | 
RUN again and reenter MLX without | 
losing your data, as long as you don't — 


use the clear workspace option, 


The Finished Product 

When you've finished typing all the 
data for an ML program and saved your 
work, you're ready to see the results. 
The instructions for loading and using 
the finished product vary from program 
to program. Some ML programs are de- 
signed to be loaded and run like BASIC 
programs, so all you need to type is 
LOAD “filename”,8 for disk or LOAD 
“filename” for tape, and then RUN. 
Such programs will usually have a 


starting address of 0801 for the 64. Oth- | 
er programs must be reloaded to specif- | 
ic addresses with a command such as | 
LOAD “filename”,8,1 for disk or LOAD | 
“filename’’,1,1 for tape, and then start- | 


ed with a SYS to a particular memory 


address. On the Commodore 64, the | 


most common starting address for such 
programs is 49152, which corresponds 
to MLX address C000, In either case, 
you should always refer to the article 
which accompanies the ML listing for 
information on loading and running the 
program. 


An Ounce Of Prevention 
By the time you finish typing in the data 
for a long ML program, you may have 


several hours invested in the project. | 


Don't take chances—use our “Auto- 


matic Proofreader’ to type the new | 
MLX, and then test your copy thorough- | 
ly before first using it to enter any sig- | 
nificant amount of data. Make sure all | 


the menu options work as they should. 
Enter fragments of the program starting 
at several different addresses, and then 


| use the Display option to verify that the 
| data has been entered correctly. And be 


sure to test the Save and Load options 
several times to insure that you can re- 
call your work from disk or tape, Don’t 
let a simple typing error in the new 
MLX cost you several nights of hard 
work. 


MLX For Commodore 64 


SS 10 REM VERSION 1.1: LINES 8 
38,958 MODIFIED, LINES 4 
85-487 ADDED 

EK 1808 POKE 56,5@:CLR:DIM INS, 

I,J,A,B,A$,B$,A(7),N$ 
DM 118 C4=48:C6=16 :C7=7:22=2:72 
4=254 :25=255:26=256:Z7= 
127 
CJ 126 FA=PEEK(45)+Z6*PEEK(46) 
: BS=PEEK (55 )+Z6*PEEK(56 





B 138 


146 


; 158 


168 


176 


189 


190 


296 


210 


226 


) 230 


240 


259 
260 


270 


289 


2968 
380 
318 


320 


339 


. 340 


356 


360 


370 


380 


) :HS="9123456789ABCDEF" 
RS=CHRS (13) :LS="{LEFT }" 
:S$S=" “:DS=CHRS(28):Z5= 
CHRS(@):TS="{13 RIGHT}" 
S$D=54272:FOR I=SD TO SD 
+23:POKE 1,8:NEXT:POKE 
[SPACE }SD+24,15:POKE 78 
8,52 

PRINT" {CLR)"CHRS(142)CH 
RS(8):POKE 53289,15:POK 
E 53281,15 

PRINT TS" {RED} {RVS} 

{2 SPACES]E8 @3 

{2 SPACES}"Spc(28)" 

{2 SPACES} {OFF}{BLU} ML 
X II {RED} [RVS} 

[2 SPACES}"“SPc(28)" 

{12 SPACES}{BLU}" 
PRINT" (3 DOWN} 

[3 SPACES ]}COMPUTE!'S MA 
CHINE LANGUAGE EDITOR 
{3 DOWN} " 

PRINT“ {BLK}]STARTING ADD 
RESSE4]"; :GOSUB300:SA=A 
D:GOSUB1O49:IF F THENLS 
fs) 


PRINT" (BLK}{2 SPACESJEN 
DING ADDRESSE4]";:GOSUB 
300 :EA=AD:GOSUB1930:IF 
{SPACE]F THEN19@ 
INPUT"{3 DOWN) {BLK)CLEA 
R WORKSPACE [Y/N]E4]";:A 
S:IF LEPTS(AS,1)<>"Y"TH 
EN2208 
PRINT" {2 DOWN} [BLU}WORK 
ING..-";:FORI=BS TO BS+ 
EA-SA+7:POKE 1,@:NEXT:P 
RINT "DONE" 
PRINTTAB(10)"{2 Down} 
{BLK} [RVS} MLX COMMAND 
{SPACE}MENU [DOWN] £43": 
PRINT TS"{RVS}JE{OFFINTE 
R DATA" 
PRINT TS"{RVS|D{OFF}ISP 
LAY DATA":PRINT TS" 
(RVS]JL[OFFJOAD FILE" 
PRINT TS"{RVS]S{OFF}AVE 
FILE":PRINT TS"{RVS]Q 
{OFF}UIT{2 DOWN} {BLK}" 
GET AS:IF AS=NS THEN259@ 
A=8:FOR I=l TO 5:IF AS= 
MIDS("EDLSQ",1I,1)THEN A 
eI<sI=5 
NEXT:ON A GOTO420,6190,6 
90,700, 280:GOSUB1LO60:GO 
TO25¢8 
PRINT" {RVS} QUIT “:INPU 
T" {DOWN} E43ARE YOU SURE 
CY/N]";AS:IF LEFTS(AS, 
1)<>"Y"THEN226 
POKE SD+24,6:END 
INS=N$ :AD=0 : INPUTINS:IF 
LEN ( INS ) <>4THENRETU RN 
BS=INS :GOSUB32@:AD=A:B$ 
=MIDS(INS,3):GOSUB320:A 
D=AD* 256+A: RETURN 
A=0:FOR J=1 TO 2:AS=MID 
$(BS,J,1):B=ASC(AS$ )-c4+ 
(AS>"@")*C7:A=A*C6+B 
IF B<@® OR B>15 THEN AD= 
O@:A=-1:J=2 
NEXT: RETU RN 
B=INT(A/C6):PRINT MIDS( 
HS,8+1,1);:B=A-B*C6:PRI 
NT MIDS(HS,B+1,1);:RETU 
RN 
A=INT(AD/2Z6) :GOSUB35@0:A 
=AD-A*Z6:GOSUB350:PRINT 


CK=INT (AD/26) :CK=AD-2Z4* 
CK+2Z5* (CK>27) :GOTO39¢ 
CK=CK*Z2+Z5* (CK>Z7)+A 


FX 


CM 


Qc 
PK 


Hd 


OA 
RJ 
| KS 


ce 


450 
460 
476 
489 


485 


486 


487 


490 


32008 


518 
528 


938 


946 
958 


960 


9708 


580 


390 


600 
619 


620 


639 


640 
650 


CK=CK+Z5*(CK>Z5) :RETURN 
PRINT"{DOWN}]STARTING AT 
E49"+:GOSUB30@:IF INS<> 
NS THEN GOSUB1@39:IF F 
{SPACE |] THEN48¢@ 
RETURN 
PRINT" {RVS} ENTER DATA 
{SPACE }":GOSUB490:IF IN 
S=NS THEN220 
OPEN3,3:PRINT 
POKE198,@:GOSUB360:IF F 
THEN PRINT INS:PRINT" 
{UP}{5 RIGHT}"; 
FOR I=6 TO 24 STEP 3:B$ 
=S$:FOR J=l TO 2:IF F T 
HEN BS=MIDS(INS,I+J,1) 
PRINT"{RVS]"BSLS;:IF I< 
24THEN PRINT" (OFF}"; 
GET AS:IF AS=N$ THEN47@ 
IF(AS>"/"ANDAS<":")JOR(A 
S>"@"ANDAS <"G" )THEN549 
A=-(AS="M")-2*(AS=",")- 
3*(AS=".")-4*(AS="/")=5 
*(AS="7")-6* (AS="K" ) 
A=A-7* (AS="L")-8* (AS="; 
")=-9* (AS="U")-10* (AS="I 
")=-11*(AS="0")-12* (ASs" 
Pp") 
A=A-13* (AS=S$):IF A THE 
N AS=MID$("ABCD123E456F 
@",A,1):GOTO 54¢ 
IF AS=RS AND((I=8)AND(J 
=1)OR F)THEN PRINT BS;: 
J=2:NEXT:1=24:GOT0550 
IF AS="{HOME}" THEN PRI 
NT BS :J=2:NEXT:I=24 :NEX 
T:F=08:GOT0440 
IF (AS="{RIGHT}")ANDF TH 
ENPRINT BSLS; :GOTO54@ 
IF AS<>LS AND A$<>D$ OR 
((I=@) AND(J=1))THEN GOS 
UB1LO6@:GOTO474 
AS=L$+SS+LS$:PRINT BSLS; 
:J=2-J:IF J THEN PRINT 
{SPACE}L$;:I=I-3 
PRINT AS;:NEXT J:PRINT 
{SPACE}SS; 
NEXT I:PRINT:PRINT" {UP} 
{5 RIGHT }";:INPUT#3,INS 
:IF INS=N$ THEN CLOSE3: 
GOTO220 
FOR I=1 TO 25 STEP3:BS= 
MIDS(INS,1I):GOSUB320:IF 
I<25 THEN GOSUB38@:A(I1 
/3)2A 
NEXT:IF A<>CK THEN GOSU 
B1866:PRINT" {BLK} {RVS] 
{SPACE }ERROR: REENTER L 
INE £43":F=1:GOT0448 
GOSUB1 989: B=BS+AD-SA:FO 
R I=@ TO 7:POKE B+I,A(I 
) :NEXT 
AD=AD+8:IF AD>EA THEN C 
LOSE3:PRINT" {DOWN} [ BLU) 
** END OF ENTRY **{ BLK} 
{2 DOWN] ":GOTO79@ 
F=08:GOTO04468 
PRINT" {CLR} {Down} {RVS} 
{SPACE} DISPLAY DATA ":G 
OSUB48@0:IF INS=NS THEN2 
20 
PRINT" {DOWN } {BLU} PRESS: 
(RVS]SPACE(OFF} TO PAU 
SE, {RVS}RETURN[OFF]} TO 
BREAKE43 [DOWN }" 
GOSUB360 :B=BS+AD-SA:FOR 
I=BTO B+7:A=PEEK(I):GOS 
UB358:GOSUB386:PRINT SS 


NEXT: PRINT" (RVS}"; :A=CK 
:GOSUB358:PRINT 
F=):AD=AD+8:IF AD>EA TH 





6608 
6708 
680 
699 


766 
7168 


720 


736 


740 
756 


760 


7708 


789 


798 
B80 


B16 


826 


B36 


840 
650 


8608 


878 
580 


B95 


9808 


910 


926 


936 


949 


958 
960 


975 


ENPRINT" {DOWN} {BLU} ** E 
ND OF DATA **":GOTO220 
GET AS$:IF AS=RS THEN GO 
SUBLOS88 :GOTO229 
IF AS=SS THEN F=F+1:GOS 
UB1gBe 
ONFGOT0630,660,639 
PRINT" {DOWN} {RVS} LOAD 
{SPACE}DATA “:0P=1:GOTO 
7168 
PRINT" {DOWN} {RVS} SAVE 
{SPACE}FILE ":0OP=0 
INS=NS$ : INPUT" [DOWN JFILE 
NAMER43";INS:IF INS=N$ 
{ SPACE ) THEN220 
F=0:PRINT™ [DOWN } {BLK} 
{RVS]TLOFF}JAPE OR [RVS) 
D{OFF}ISK: £449"; 
GET AS:IF AS="T"THEN PR 
INT "T{ DOWN }":GOTO88sa 
IF AS<>"D"THEN73@ 
PRINT"D{ DOWN} ":OPENI5,8 
,15, "10: ":B=EA-SA:INS$=" 
6:"+INS:IF OP THENS1O 
OPEN 1,8,8,INS+",P,W":G 
OSUB860:IF A THEN220 
AH=INT(SA/256) :AL=SA-(A 
H*256):PRINT#1,CHRS (AL) 
; CHRS$ (AH); 
FOR I=0 TO B:PRINT#1,CH 
RS(PEEK(BS+1I));:IF ST T 
HEN8SOO 
NEXT:CLOSE1] :CLOSE15:GOT 
0940 
GOSUB1LO608:PRINT" [DOWN } 
{BLK}ERROR DURING SAVE: 
k49":GOSUBBG6O :GOTO22¢0 
OPEN 1,8,8,INS+",P,R":G 
OSUBS6@:IF A THEN22¢ 
GET#1,AS,B$:AD=ASC(AS+Z 
$)+256*ASC(BS+ZS):IF AD 
<>SA THEN F=1:GOTO85¢ 
FOR I=0 TO B:GET#1,AS$:P 
OKE BS+1I,ASC(AS+ZS$) : IF( 
I¢<>B)AND ST THEN F=2;AD 
=I;:I=5 
NEXT:IF ST<>64 THEN F=3 
CLOSE1:CLOSE15:0N ABS(F 
>8)+1 GOTO960,978 
INPUT#15,A,AS:IF A THEN 
CLOSE] :CLOSE15:GOSUB19@ 
OF SE PaaS eats nae WA 


RETURN 
POKE]83,PEEK(FA+2) :POKE 
187,PEEK(FA+3 ) :POKE188, 
PEEK(FA+4) : IFOP=8THEN92 
4] 


SYS 63466:IF(PEEK(783)A 
ND1)THEN GOSUB1@60:PRIN 
T"{powN }{RVS]} FILE NOT 
{SPACE]}FOUND ":GOTO696 
AD=PEEK (829) +256* PEEK (8 
30):IF AD<>SA THEN F=1: 
GOTO979 
A=PEEK (831 )+256*PEEK(83 
2)-1 :F=F-2* (A<EA)-3* (A> 
EA) :AD=A-AD:GOTO939@ 
A=SA:B=EA+1:GOSUB1916:P 
OKE780,3:SYS 63338 
A=BS :B=BS+(EA-SA)+1:GOS 
UB1O@10:O0N OP GOTO950:SY 
§ 63591 
GOSUB1@80:PRINT" {BLU} ** 
SAVE COMPLETED **";:GOT 
0226 
POKE147,98:SYS 63562:IF 
{SPACE]ST>@ THEN97@2 
GOSUB1@8@8 :PRINT" {BLU} ** 
LOAD COMPLETED **";GOT 
0220 
GOSUB1LO6@:PRINT"{ BLK} 


| AC 1698 


{RVS}ERROR DURING LOAD: 
{DOWN }£43":0N F GOSUB9S 
G,998, 18808 :GOTO229 
PP 988 PRINT"INCORRECT STARTIN 
G ADDRESS (";:GOSUB360: 
PRINT" )":RETURN 
GR 990 PRINT"LOAD ENDED AT “;: 
AD=SA+AD: GOSUB360 :PRINT 
DS : RETURN 
PRINT"TRUNCATED AT END 
ING ADDRESS": RETURN 
AH=INT(A/256) :AL=A-(AH 
*256) :POKE193,AL:POKE) 
94, AH 
FF 1626 AH=INT(B/256) :AL=B-(AH 
*256) :POKE174,AL: POKEL 
75, AH: RETURN 
IF AD<SA OR AD>EA THEN 
1958 
IF(AD>511 AND AD<40969 
JOR(AD>49151 AND AD<53 
248)THEN GOSUB1O89:F=0 
: RETURN 
GOSUB1@60:PRINT"{RVS} 
{SPACE }INVALID ADDRESS 
{DOWN} {BLK)":F=) :RETU 
RN 


FD 1698 


RX 1919 


FX 1636 


HA 1049 
HC 1650 


AR 1868 POKE SD+5,31:POKE SD+6 
,298:POKE SD,248:POKE 
[SPACE }SD+1,4:POKE SD+ 
4,33 

FOR S=l1 TO 1900:NEXT:GO 
TOLO9E 

POKE SD+5,8:POKE SD+6, 
2409:POKE SD,0:POKE SD+ 
1,90:POKE SD+4,17 

FOR S=1 TO 1@0:NEXT:PO 
KE SD+4,8:POKE SD,@:PO 
KE SD+1,8:RETURN G 


DX 16768 


PF 1086 






COLOR RIBBONS & PAPER 


RIBBONS: Red, Blue, Grn., Brwn., Purple, Yel. 


Ribbons Price Each | Black | Color | Heat 
Transfer 
: 7,00 


Brother M1109 5:95 
1 C. Itoh Prowriter Jr. 9.00) - 
Citizen 120D/180D 6.00 
Commodore MPS 801 5,25 
- MPS 802/1526 7.25 | 
- MPS 803 5.95 | 
- MPS 1000 4.95 
- MPS 1200/1250 6.00 
- 1525 8.00 | 
| Epson MXB80/LX600 4.25 
| Okidata 82/92 2.25 
Okidata 182/192 7.50 
} Panasonic K-XP 1080 7.75 
} Seikosha SP 800/1000 6.50 
Star SG10 2.25 
Star NX10/NL10 
Star NX1000 
1 Star NX1000C — 4C 
COLOR PAPER 
BRIGHT PACK —200 Sheets/50 each color: Red, 
Biue, Green, Yellow. 9 1/2 x 11 — $11,90/pk. 
PASTEL PACK —200 Sheets/50 each color: Pink, 
Yellow, Blue, Ivory. 9 1/2 « 11 — $11, 90/pk. 


T-SHIRT RIBBONS (Heat Transfer) — Red, Blue, Grn., | 
Brwn., Purple, Yel., Bik. Call For Puce & Availability, 


COLOR BANNER BAND PAPER — 45 ft./roll-$9.95/ea. | 


| For ribbons & paper not listed above, call for price & | 
| avail. Price & spec. subject to change w/o notice. Min. 
| order $25.00. Min. S&H $3.50 min. Visa, MC, COD. § 


RAMCO COMPUTER SUPPLIES 
P.O. Box 475, Manteno, IL 60950 U.S.A, 
1-800-522-6922 * 815-468-8081 







































Classified 





| SOFTWARE 





FREE PUBLIC DOMAIN SOFTWARE - Request 
free catalog or send $2 for sample disk 

and catalog (refundable). C64-128. CALOKE 
IND., Dept, JK, Box 18477, K.C., MO 64133 


COMMODORE: TRY BEFORE YOU BUY. Best 
selling games, utilities, educ’l + classics 
& new releases, 100's of titles, Visa/MC/Disc 
Free brochure. RENT-A-DISC, Frederick Bldg. 
#222, Hunt'n, WV 25701 (304) 529-3232 


FREE SOFTWARE FOR C-64, Send one stamp 
for catalog or $2.00 for 30 sample programs and 
catalog (refundable). RVH Publications, 4291 
Holland Rd, #562-G, Virginia Beach, VA 23452 


RENT 64/128 SOFTWARE! 1000's of disks. 
Lowest prices. No deposit or fee, Free 
catalog, Centsible Software, PO Box 930, 
St. Joseph, MI 49085 (616) 982-0327. 


THOUSANDS OF PD PROGRAMS FOR C64/128! 
We have Games, Utilities, Music and much 
more! For information write: Lightspeed 
Software, POB 340427, Tampa, FL 33694 


Thousands of C64/128 PD programs on 350+ 
disks, Free listing or $1 large catalog. 

DISKS O'PLENTY INC., 7958 Pines Blvd., 
Suite 270A, Pembroke Pines, FL 33024 


C64 /128 FINEST PUBLIC DOMAIN PROGRAMS 
Pretested quality programs * Most $1.50 * 

"On Disk * YOU pick the programs that YOU 
want!!! Free diskfull of programs with first 
order! For a list + Description send SASE to: 
JLH Co., Dept. G, Box 67021, Topeka, KS 66667 


64/128 PD SOFTWARE, GAMES, MUSIC, UTIL., 
Educ. & Hm/Bus. $3/disk - 2/$5 +$2.50 s.h, 
Comp. cat, USA $2, other $4 - For info SASE 

D & V CompSoft, PO Box 933, Ardmore, TN 38449 











FINEST C-64/128 PUBLIC DOMAIN SOFTWARE! 
As low as $1.25 per disk of programs. For a 

Free CATALOG write to: KOALA ENTERPRISES 
Rt. 2, Box 677, Carencro, LA 70520 


SRA V2. 26 For C-128 $39.95 » $4.50 





| p g ‘ 
33 Gold St, Ste. L3, New York, NY 10038 
™*MicroPro® 800-221-7372 








f Pa 
| s.) WIN LOTTO MILLIONS! 
LOTTO PICKER PLUS v2.1 
2 Lotto Picker Plus, the original lottery 
_"'q) —- — selecton software, allows you to store 
. 2 winning Lotto, Keno, & Pick 3/4 numbers 
_© %& choose between three modes of probability 
analysis (hot, due, unbiased) in order to give you 
the winning edge! Guaranteed to work for all lotteries. 
Bonus numbers are easily handled and our full-featured 
database editor gives you access to your files. We give 
you the PICKS—not a bunch of jumbled statistics! $34.95 
ede s/h). 64/126, IBM, 64K Apple Il. NY res. add tax. 
OT Copy-protected 
ORDER TODAY! 1-800-634-5463 ext 293 (M-F 8-5) 
GE RIDGE SERVICES, INC., 170 Broadway ae 
Suite 201-CG, New York, NY 10038 
Info/Dealers 718-317-1961 





- 


THE BEST PD PROGRAMS FOR C64/128/CPM. 
Arcade type games, utilities, etc. For 

sample disk & catalog, send $2 to: ONLY 

THE BEST, PO Box 358, Peoria, IL 61651-0358 


QUALITY GAMES FOR THE COMMODORE 64 
Low prices, high quality. For free 

catalog send 1 stamp to: Quality Games 

3560 Savage Ave., Pinole, CA 94564 


THE HOTTEST EUROPEAN 64/128 PD GAMES! 
8-10 QUALITY GAMES on DS disks for only $5! 
For a FREE SAMPLE and CATALOG write to: 

THE GAME SHOP, Box 491, New York, NY 11375 


GLOBAL THERMONUCLEAR WARFARE 
LAUNCHED FROM YOUR C-64/128 WITH 
ENDOTHERM. GREAT GRAPHICS+SOUND 
EFFECTS. FREE $+H. ONLY $7. MONOLITH, 
P.O. BOX 841 HANSON, MA 02341 


C-64 PROGRAMMERS - 10 BORDERS IN BASIC 
with tutorial, Disk is filled both sides 

with utilities & games. $4.95 Postpaid. 

PMP, 220 Chaucer, Elyria, OH 44035-4722 


C64, C128 & CPM PUBLIC DOMAIN SOFT- 
WARE, Free Catalog, fast service, low prices, & 
unbelievable specials. ComputerActive, 

Box 893-C, Clinton, OK 73601 


MUSIC LOVERS! MIDI YOUR C64/128. We have 
music software, Midi interfaces, hundreds 

of pre-programmed songs. Catalog-$1.00. 

MIDI Inn, Box 2362CG7, Westmont, IL 60559 














COMPUTE!’s Gazette Classified is a low-cost way to tell over 
220,000 microcomputer owners about your product or service. 


Rates: 525 per line, minimum of four lines. Any or all of the first line set in capital letters 
at no charge. Add $15 per line for boldface words, or $50 for the entire ad set in bold- 
face (any number of lines.) Inquire about display rates. 

Terms: Prepayment is required. Check, money order, American Express, Visa, or 
MasterCard is accepted. Make checks payable to COMPUTE! Publications. 

Form: Ads are subject to publisher's approval and must be either typed or legibly 
printed. One line equals 40 letters and spaces between words. Please underline words 


to be set in boldface. 


General Information: Advertisers using post office box numbers in their ads must supply 
permanent address and telephone numbers. Orders will not be acknowledged. Ad will 


appear in next available issue after receipt. 


Closing: 3rd of the third month preceding cover date (e.g., June issue closes March 3rd). 
send order and remittance to: Kathleen Ingram, Classified Mana er, COMPUTE!'s 
Gazette, P.O. Box 5406, Greensboro, NC 27403. To place an ad by phone, call Kathleen 


Ingram at (919) 275-9809. 


Notice: COMPUTE! Publications cannot be responsible for offers or claims of advertisers, | 
but will attempt to screen out misleading or questionable copy. 
Classified Display Rates: Classified display ads measure 2% apes and are priced 


according to height. 1" = $250; 1%" = 


$375; 2" = 


$500; 3° = $600; ($100 for each 





additional inch, e.g. 4” = $700, etc.) Preferred supplied material is Velox or PMT. 
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MT a aaa ek ena aiea You can find 
RAVELER computer program from NCL. 


out with the Ti 
Tells you Academy Award, World Series winners, prices, presi- 

dents, headlines, annual income, avg. cost of home, calendar, 
much more. 1900-1989. Sell printout at flea mkts, shows, by 
mail. Great bl ¢ git Send $49 for disk, or SASE for printout. 


Also includes T game. Educational, interesting, For C64 


& 128 of IBM with any printer. Not copy protected 
NATIONWIDE COMPUTER INDUSTRIES 





205 McCormick Avenue, Dept 71, Hawkinsvilla, GA, 91036 
(912) 783-1158 Visa/MC/Check 





SINGERSI!-EASIEST WAY TO LEARN YOUR 
PARTI Play your part only, or all 3 parts, C-64 
Disk. EZest music entry. $14.95 + $3 p&h. CA 
residents add tax. ZWETZIG ASSOCIATES 
Dept. 5, 5932 Bruns Ct., Oakland, CA 94611 


HARDWARE 
COMMODORE/AMIGA CHIPS, REPAIRS 
flat rates (C64; $49.95+ UPS), parts, 

Send for free catalog. Kasara Micro- 
systems (Div. of QEP) 9 Kay Fries Dr., 
Stony Point, NY 10980. 800-248-2983. 


COMPUTER REPAIR : 


C-64 REPAIR $39.95 FLAT RATE. 1541/1571- 
$49,95;SX64-$69,95;128-$64.95, 24 Hr turn- 
around, 90 dy warranty. A&M Computer Repair, 
20 Guernsey, New Windsor, NY 12550, 914-562-7271 


Authorized Repairs C64/128: $50 & $55; 1541/ 

1571: $55 & $65; SX64, 128D, Amiga, PC: $Call 
$16-872-6311. Quick Serv. 30 day warranty. 

We buy, sell, trade. MOM & POP’s COMPUTER 
SHOP, Rt. 2, Box 119, Cainsville, MO 64632 








COMPUTE!s Gazette is 
looking for utilities, games, 
applications, educational 
programs, and tutorial 
articles. If you've created 
a program that you think 
other readers might enjoy 
or find useful, send it, on 
tape or disk, to: 


Submissions Reviewer 
COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please enclose an SASE if 
you wish to have the 
materials returned. 
Articles are reviewed 
within four weeks of 
submission. 





ive u 
. Well give you 10! 


Call our toll-free number now, 
and receive 10% more 5 for 
your trade-in! Just give us 5S 

reasons why Computer 
Repeats is America’s source 

for New and Used Compu- 
ter Equipment! Need a 
hint? Read on....... 


Guaranteed lowest pnices with trade-in 
of 5100 or more. 
Trade-in your system for anything 
‘y sol) - free quotes 
Full product lines-plus authonzed 
sales & service-of Commodore/ 
Amiga and Atari 
B4,SCash$ for your equipment. 
“ie hr on-line ordering BBS. 
ne (303) 939-8174 
|, 10-day home trial, 
q Free technical support. 
1000's of software & book 
titles. $1-up. 
Fast, low-cost delivery, 
Corporate & educational 


ogcounts. 
oS al major credit cards 


J epted 
1000's of saristied 
Customers 



















BUY-SELL-TRADE 





eee 


Si2i Arapahoe, Suite 18, Boulder. CO 80303 





ADVERTISERS INDEX 











Discover} 


BR 










eee eee 2 es Os = ws eee 


eae eer 


FACTORY AUTHORIZED 


COMMODORE REPAIR CENTER 
1-800-772-7289 


(312) 879-2888 IN ILLINOIS 


C64 Repair jrcaooan . 42.95 ¢128D Repalr ..... CALL 
C-128 Repair ircoonm . 64.95 Amiga Repair ... CALL 
1541 Permanent / 
Alignment ..... 29°95 ELUM oe ie ve» CALL 
1541 Repair ...... 79.95  Monitors......... CALL 
1571 Repalr ...... 79.95 Other Equipment... CALL 


CALL BEFORE SHIPPING FOR AUTHORIZATION NUMBER 
(Have Serial and Card Numbers ready) 
PARTS AND LABOR INCLUDED 
FREE RETURN SHIPPING 
(APO, FPO, AIR ADD $10.00) 


24-48 HR. TURNAROUND 
(Subject to Parts Avallability) 


30 DAY WARRANTY ON ALL REPAIRS 


COMMODORE PARTS 


CALL (312) 879-2350 


C-64 Power Supply .............. ve avis 34,95* 
C128 Power Supply ....... Sp alii See Pe ee 
Other: Parts: 5 fiie cs bolsie sie Queer ae tsa temo CALL 


fl 

fl 

l 

! 

*(Plus $3.00 Shipping/Handling) 
TEKTONICS PLUS, INC. l 
150 HOUSTON STREET ! 
BATAVIA, IL 60510 1 


a] 
VISA 
_ 



















WW Lair -\] GET MORE 
Reader Service Number / Advertiser Page | Gx Can Your | a) Se a 
102 Berkeley Softworks ............ 25 | | omputer Make stein 
103 BRE Software ....... 0.0.00. 49 (aD) YOu FROM THE 
4104 BAIA ties ee clviedls ots 60-61 
fe. Sas ie ea O); $1,000,000? oJ BIBLE WITH 
106 Computer Direct ............ 10-11 | ~~ 
4107 Computer Heroes ......... a AG > WITH LOTTERY PG YOUR’ NEXT TICKET LANDMARK 
108 Computer Repeats ........... 69 COULD a ie LIONS! | nee | 
109 Creative Micro Design ......... 45 | ME LOTTERY uses ane \attage ot your: The Computer Reference Bible 
Crown Custom Covers ........ . 38 COMputer (0 Ge Went ne Humber selection 
110 CW Data-Labs 49 methods that ap | — i er) games you Here’a what LANDMARK will enable you to dor 
get cided Feta Nh eer fee ot eat a eee ee play Don't bal ethods that “ SEARCH THROUGH THE BIBLE—-Find 
111 Datel Computers ............... 7 other progra t work in your Stale Phrases, words or sentences. 
112 Fearn & Music ............05. 49 There is nob able! DEVELOP TOPICAL FILES—-Copy from The 
113 Gosselin Computer Consultants .. 49 Join the gro 16: Bible text and search results then add your | 
114 Lyco Computer ............. 32-36 | own comments and notes. [ 
4B Maxton co ociGrck eee eee 49 COMPILE YOUR PERSONAL BIBLE--- 
11G MIBRO Co. Inc 45 Outline texts in color. Add notes, 
. PMT pag ea eh comments, and references. Make your Bible 
117 Montgomery Grant ........... IBC oh Study organized and on permament record! 
NAL SCHOO Cais aa ciastaisieletess 17 Be 4/26 8 Blus/4 Mmm istered CREATE FILES--- Convert them for 
118 P.A.V.Y. Software ............. 69 Lear npO 4 Bsa ae wordprocessors like Paperclip and GEOS. 
119 Ramco Computer Supplies ...... 67 BM xT T are registeredsfademarks ot [Anata Ata teenth Min SONS Aap 
120 The Soft Group ............... 45 | Bnatiodal Business ines Inc For specific study noe develop translation 
121 Software Discounters Atari $I a sterol walemark of Atan Corp pbrchenees bee 
of America 2... eee eee. 40-43 | fy ee emake nar ot Aan Cony NEW LOW PRICE! 
Strategic Simulations Inc. ..... (IFC-1 ! b Gites sly p Ahi for each plus $3.00 postage & S 1 1 
Strategic Simulations Inc. ....... BC illinois residents add 6% sales taxi 9.95 
a ae ree Hoh eae ab Wmhas ete or Me (Orders outside North America add $3 00 v1.2 for C64 and v2.0 for C128 
124 Tejas SORE ee 49 | CALL OR WRITE TODAY FOR A 
Tektonics Plus .... ; ia ; 69 a gate FREE BROCHURE, WHICH SHOWS 
425 Tenex Computer Express .... a8 COD orders cal = (QJ) HOW VALUABLE LANDMARK CAN} 
126 Ultrabyte ............. sefhas sehoes 38 | (312) 566-4647 BE IN YOUR BIBLE STUDY {| 
127 Utilities Unlimited .............. 47 | - bg P.A.V.Y. Software P.O. Box 1584 J 
128 hp dahlsad yacrasodeey deter 49 o Ballwin, MO 63022 (314) 527-4505 Jj 
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The Automatic Proofreader 


Philip i. Nelson 


“The Automatic Proofreader”’ helps 
you type in program listings for the 
128, 64, Plus/4, and 16 and prevents 
| nearly every kind of typing mistake. 

Type in the Proofreader exactly as 


listed, Since the program can’t check it- | 


self, type carefully to avoid mistakes. 
Don't omit any lines, even if they con- 
tain unfamiliar commands, After finish- 
ing, save a copy or two on disk or tape 
before running it. This is important be- 
cause the Proofreader erases the BASIC 
portion of itself when you run it, leav- 
| ing only the machine language portion 
in memory. 

| Next, type RUN and press RE- 
TURN. After announcing which com- 
| puter it’s running on, the Proofreader 
displays the message “‘Proofreader 
Active”. Now you're ready to type in a 
BASIC program, 

Every time you finish typing a line 
and press RETURN, the Proofreader 
displays a two-letter checksum in the 
upper-left corner of the screen, Com- 
pare this result with the two-letter 
checksum printed to the left of the line 
in the program listing. If the letters 
match, it’s almost certain the line was 
typed correctly. If the letters don’t 
match, check for your mistake and cor- 
rect the line. 

The Proofreader ignores spaces not 
enclosed in quotes, so you can omit or 
| add spaces between keywords and still 
see a matching checksum. However, 
since spaces inside quotes are almost al- 
ways significant, the Proofreader pays 
| attention to them. For example, 10 
| PRINT“’THIS IS BASIC” will generate 
a different checksum than 10 
PRINT“THIS ISBA SIC”, 

A common typing error is transpo- 
sition—typing two successive charac- 
ters in the wrong order, like PIRNT 
instead of PRINT or 64378 instead of 
64738. The Proofreader is sensitive to 
the position of each character within the 
line and thus catches transposition 
errors, 

The Proofreader does not accept 
keyword abbreviations (for example, ? 
instead of PRINT). If you prefer to use 


| abbreviations, you can still check the | 


| line by LISTing it after typing it in, 


moving the cursor back to the line, and | 


| pressing RETURN. LISTing the line 
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substitutes the full keyword for the ab- | 
breviation and allows the Proofreader | 


to work properly. The same technique 
works for rechecking programs you've 
already typed in. 

If you‘re using the Proofreader on 
the Commodore 128, Plus/4, or 16, do 
not perform any GRAPHIC commands 
while the Proofreader is active. When 
you perform a command like GRAPH- 
IC 1, the computer moves everything at 
the start of BASIC program space—in- 
cluding the Proofreader—to another 
memory area, causing the Proofreader 
to crash. The same thing happens if you 
run any program with a GRAPHIC 
command while the Proofreader is in 
memory. 

Though the Proofreader doesn’t 
interfere with other BASIC operations, 
it’s a good idea to disable it before run- 
ning another program. However, the 


| Proofreader is purposely difficult to dis- 
| lodge: It’s not affected by tape or disk 


operations, or by pressing RUN/ 


STOP-— RESTORE. The simplest way to | 


disable it is to turn the computer off 


(SYS 65341 for the 128, 64738 for the 
64, and 65526 for the Plus/4 and 16). 
These reset routines erase any program 
in memory, so be sure to save the pro- 
gram you're typing in before entering 
the SYS command, 

If you own a Commodore 64, you 
may already have wondered whether 
the Proofreader works with other pro- 
gramming utilities like “MetaBASIC.” 


The answer is generally yes, if you're | 
using a 64 and activate the Proofreader | 


after installing the other utility. For ex- 


ample, first load and activate Meta- | 
BASIC, then load and run the | 


Proofreader, 

When using the Proofreader with 
another utility, you should disable both 
programs before running a BASIC pro- 
gram. While the Proofreader seems un- 
affected by most utilities, there's no 
way to promise that it will work with 


| any and every combination of utilities 


you might want to use. The more utili- 
ties activated, the more fragile the sys- 
tem becomes. 


The New Automatic Proofreader 


18 VEC=PEEK(772)+256*PEEK(773) 
:LO=43 :HI=44 


| 80 IF CHK<>20579 


| 110 IF 





20 PRINT "AUTOMATIC PROOFREADE 
R FOR ";:IF VEC=42364 THEN 
{SPACE]PRINT "C-64" 

30 IF VEC=50556 THEN PRINT 
c-20" 

40 IF VEC=35158 THEN GRAPHIC C 
LR:PRINT "PLUS/4 & 16" 

58 IF VEC=17165 THEN LO=45:HI= 
46:GRAPHIC CLR:PRINT"128" 

6@ SA=(PEEK(LO)+256*PEEK(HI))+ 
6:ADR=SA 

76 FOR J=9 TO 166:READ BYT:POK 
E ADR, BYT:ADR=ADR+1:CHK=CHK 
+BYT : NEXT 


"WI 


THEN PRINT "* 
ERROR* CHECK TYPING IN DATA 
STATEMENTS" :END 
99 FOR J=1 TO 5:READ RF,LF,HF: 
RS=SA+RF:HB=INT(RS/256):LB= 
RS=(256*HB) 
1008 CHK=CHK+RF+LF+HF:POKE SA+L 
F,LB:POKE SA+HF,HB:NEXT 
CHK¢>22054 THEN PRINT " 
*ERROR* RELOAD PROGRAM AND 
{SPACE]CHECK FINAL LINE":EN 
D 

128 POKE SA+149,PEEK(772):POKE 

SA+150,PEEK(773) 

130 IF VEC=17165 THEN POKE SA+ 
14,22:POKE SA+18,23:POKESA+ 
29,224:POKESA+4+139, 224 


; | |} 148 PRINT CHRS(147);CHRS(17);" 
then on. A gentler method is to SYS to | * 


the computer's built-in reset routine | 


PROOFREADER ACTIVE":SYS SA 

158 POKE HI,PEEK(HI)+1:POKE (P 
EEK(LO)+256* PEEK(HI))-1,0:N 
ae 


166 DATA 120,169,73,141,4,3,16 


9,3,141,5,3 

178 DATA 88,96,165,208,133,16/7, 

165,21,133,168,169 

DATA @,141,0,255,162,31,18 

1,199,157,227,3 

199 DATA 202,16,248,169,19,32, 
210,255,169,18,32 

200 DATA 210,255,169,8,132,180 
,132,176,136, 230,180 

218 DATA 200,185,08,2,240,46,20 
1,34,208,8,72 

220 DATA 165,176,73,255,133,17 
6,104,72,201,32, 288 

239 DATA 7,165,176,208,3,104,2 
08,226,104,166,180 

240 DATA 24,165,167,121,0,2,13 
3,167,165,168,105 

250 DATA 6,133,168,202,208,239 
,240,202,165,167,69 

260 DATA 168,72,41,15,168,185, 
211,3,32,218,255 

270 DATA 104,74,74,74,74,168,1 
85,211,3,32,210 

260 DATA 255,162,31,189,227,3, 
149,199,2602,16,248 

290 DATA 169,146,32,218,255,76 
,96,137,65,66,67 

308 DATA 68,69,78,71,72,74,75, 
77,88,81,82,83,88 

318 DATA 13,2,7,167,31,32,151, 
116,117,151,128,129, 167,136 


186 





| BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
_COMPUTE!'s Gazette Programs,” 





| elsewhere in this issue. 


SFX Machine 


Article on page 50. 


FH 


RF 


Cs 


GQ 


GJ 


GR 


QP 


PD 


AA 


QM 


CJ 


AH 


SS 


BQ 


SC 


BR 
PH 


EB 


BG 


DJ 


10 REM COPYRIGHT 1989 COMPU 
TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 
PRINT" {CLR}":B=53280:POK 
ERB, 15:POKEB+1,12:POKEB-1 
5,91:Bl=B+2:B2=B+4:C=646 
7D=49152 
FORJ=0TO1@:READN: POKED+J 
»NiNEXT:DATA169,06,160,23 
,153,0,212,136,208,250,9 
6 
X=211:Y¥=214:POKEC,1:POKE 
B2,2:POKEY,9:PRINT 
PRINTTAB(8)"{RVS} 
{25 SHIFT-SPACE}" 
PRINTTAB(8)"{RVS} 
{SHIFT-SPACE}COPYRIGHT 1 
989 COMPUTE! 
{SHIFT-SPACE}" 
PRINTTAB(S8)"{RVS} 
{25 SHIFT-SPACE}" 
Z=1:82828:K=256:RS=CHRS ( 
13) :PS=CHRS (32) :M=1.005: 
A=40:NK=64:KB=197:V=5427 
2 
VleV+lLiV2=ViV3eVt+8:V4eV+ 
7:R=RND(-TI) 
196 M1S="{RVS} {SHIFT-SPACE} 
NEW{SHIFT-SPACE } SFX 
TSHIFT-SPACE}":M2S=" 
{RVS}{SHIFT-SPACE}KEY 
{SHIFT-SPACE}SFX 
{SHIFT-SPACE}":M3S=" 
{RVS}{SHIFT-SPACE}SAVED 
{SHIFT-SPACE}SFX 
{SHIFT-SPACE}KEYS 
{SHIFT-SPACE}" 
DIMF1(A),F2(A),F3(A),F4 
(A) ,G1(A),G2(A),G3(A),G 
4(A),H1(A),H2(A),H3(A), 
H4 (A) 
FORT=l1TOA: READN:N1=N*M: 
N2=N*2:N3=N*2*M:N4=INT ( 
N/2) =NS5=INT (N/2*M) 
F1(T)=INT (N/K) :F2(T)=N- 
(Fl1(T)*K) :F3(T)=INT(N1/ 
K) :F4(T) =INT (N1-(F3 (T)* 
K) ) 
Gl(T) =INT (N2/K) :G2(T)=N 
2-(G1(T)*K):G3(T)=INT(N 
3/K) :G4(T)=INT (N3-(G3(T 
)*K)) 
H1(T) =INT (N4/K) :H2(T)=N 
4—-(H1(T)*K):H3(T)=INT(N 
5/K) :H4(T) =INT (N5-(H3(T 
)*K)) 
NEXT: GOSUB570:GOSUB68@ 
DATA2145,2273,2408,2551 
,2703,2864,3034,3215,34 
86,3608,3823,4050,4291, 
4547 
DATA4817,5103,5407,5728 
,6069,6430,6812,7217,76 
47,8191,8583,9894,9634, 
19207 
DATA16814,11467,12139,1 
2860,13625,14435,15294, 
16203,17167,18188,19269 
,20415 
SYS49152: POKEV+23,P0(1I) 


20 


30 


40 


58 


60 


78 
BG 


90 


118 


120 


138 


140 


158 


160 
170 


18d 


196 


280 


AQ 
RH 


Jc 


DQ 


FJ 


DQ 
PC 


GJ 
AS 


QQ 


HD 


MK 
PB 


HQ 


AP 


EM 
OS 


MM 
ME 
RC 
HE 
OJ 
EB 


AK 


219 
220 


230 


240 


250 


260 
270 


280 
290 


360 


319 


320 
330 


349 


3598 


368 
378 
380 
399 
400 
419 


428 
43 


44@ 


450 
460 


47@ 


48a 
490 


500 
5190 
520 
930 
540 
55¢ 


960 


: POKEV+24,VO(I) 

GETAS: IFAS=""THEN21@ 
IFVAL (AS) >@THENGOSUB55@ 
:GOTO200 
IFAS="L"THENGOSUB1206:G 
OTO200 
POKEV+5,AD(1I):POKEV+6,S 
R(I) :POKEV+12,AD(1):POK 
EV+13,SR(1I) :POKEV+3,DB ( 
I) 
POKEV+10@,DC (I) :POKEV+17 
,DD(I) :POKEV+14,VI(I):P 
OKEV+18,VS(I) 
IFAS="4+"THENT=T+1:IFTOA 
THENT=A 
IFAS="-"THENT=T-L:IFT<1 
THENT=1 
IFAS="4+"ORASS"—-"THEN32@ 
IFAS=RSTHENI=@:GOSUB68@ 
:POKEY,8:PRINT:222Z+1 
IFAS=RSTHENPOKEC,7:POKE 
Bl,l:PRINT"{4 SPACES}"M 
1S;Z"{LEFT}) ":GoTOo200 
IFAS="S"THENGOSUBLO70:G 
OTO200 

ONOC (I)GOT0330,340,35¢ 
POKEV1,F1(T) :POKEV2,F2 ( 
T) :POKEV3,F3(T) :POKEE,F 
3(T) :POKEV4,F4(T) :GOTO3 
60 
POKEVL,G1(T) : POKEV2,G2 ( 
T) :POKEV3,G3(T):POKEE,G 
3(T) :POKEV4,G4(T) :GOTO3 
60 
POKEV1,H1(T) : POKEV2,H2 ( 
T) :POKEV3,H3(T) :POKEE,H 
3(T) :POKEV4,H4(T) 

ONZ (I) GOTO400,370,380,3 
90,370 
POKEV+15,F1(T)/.7:GOTO4 
0a 
POKEV+15,F1 (T) /2:GoTo4@ 
a 

POKEV+11,W2(1I) :FORJ=1TO 
50:NEXT 
IFAS<>RSTHENPOKEV+4,W1 ( 
I) :POKEV+11,W2(T) 

ONFL (1I)GOT0420,430,440, 
450 

GOSUB530:GOTO46a 
FORU=1TOSL(I)STEP1@: POK 
EV+22,U:NEXT:GOTO460 
J=1:L2=255:FORU=l1T0O10:P0 
KEV+1,J:POKEV+8,L:J=*J+1 
L(I) :L=L-12(1) :NEXT:GOT 
0460 

POKEV3,PEEK(E) /2 

IFZ (1) =2THENFORU=l1TOSL ( 
I) STEPXT (I) : POKEV+1,U:N 
EXT 
IFZ(1I)=STHENFORU=SL(I)T 
OLSTEP-XT (I) :POKEV+23,1 
: POKEV+1,U: POKEV+23, PO ( 
I) NEXT 

IF PEEK (KB) <>NKTHEN4B@ 
IFZ(1I) =6THENPOKEV+4,21: 
POKEV+11,21 
POKEV+4,W1 (I) -1:POKEV+1 
1,W2(1I)-1 
IFAS="R"THENGETBS: IFBS= 
"UTPHEN320 

GOTO21¢ 

POKEV, PEEK (V+27) : POKEV+ 
7,PEEK(V+27) : 1FPEEK (KB) 
<>NKTHEN53@ 

RETURN 

I=VAL (AS) : IFOC (I) =@THEN 
I=9:RETURN 

T=T (I) :POKEY,8:PRINT: PO 
KEC,3:POKEB2,@:PRINT" 
{4 SPACES}"M2S;I"{LEFT} 
{2 SPACES}":POKEC,1:RET 
URN 


RK 


ES 


CG 


JD 


MX 


FH 


CQ 


FC 


9798 


580 


590 


660 


61@ 


629 


639 


6468 


650 
666 


6708 
680 


690 


768 
718 


720 
736 
740 
758 
7608 
776 


| 786 


796 


Bad 
819 
820 
B30 
846 
858 
868 
878 


| 880 


890 
9070 


91¢ 
920 
939 
940 
959 
960 


979 
98¢ 
990 


POKEC,1:PRINT"{CLR} 
{DOWN} [{RVS]}SPACE(OFF} 
{SPACE}TO HEAR SFX 

{5 SPACES}{RVS]+{OFF} T 
O RAISE PITCH 
PRINT"{DOWN} {RVS]}S 
{OFF} TO SAVE SFX 

{9 SPACES} {RVS}-({OFF} T 
O LOWER PITCH 

PRINT" {DOWN} {RVS}L 
{OFF} TO LOAD SFX 

{7 SPACES}{RVS}RETURN 
{OFF} FOR NEW SFX 
PRINT"{DOWN} {RVS}R 
{OFF} TO REPEAT SFX 
Y KEY TO STOP) 
PRINT" ---2 occ cc cenen 


(AN 


IFSS=""THENPOKEY,8:PRIN 
T:POKEC,7:POKEB1,1:PRIN 
T"{4 SPACES}"M1S;z2" 

{ LEFT } ut 

POKEY,8:PRINT: POKEC,7:P 
OKEB1,1: PRINT" 

{2 SPACES}"SS 
POKEY,8:PRINT:POKEX, 20: 
POKEB2,@:POKEC,3:PRINTM 
35:PRINT 
IFP=@THENPOKEY,11:PRINT 
:POKEX,24:PRINT™ (NONE) 
IFZG>OTHENFORU=1TOZG: PO 
KEX, 26: PRINTU: NEXT 
RETURN 

Z2(1)=INT (5*RND(1))+1:FL 
(1) =INT (5*RND(1))+0:0C( 
I) =INT (3*RND(1))+1 
T=INT (A*RND(1))4+1:I11(I) 
=INT (25*RND(1))4+1l:12(1I) 
=INT (25*RND(1))+1 
SL(I)=INT (255*RND(1))+1 
J=INT (7*RND(1))+1:ONJGO 
TO720,730,740,750,760,7 
70,788 

W1(1)=17:GOTO79@ 
W1(1I)=33:GOTO7906 
W1(1)=65:GOTO790 
W1(1I)=129:GOTO790 

W1 (I) =21:GOTO796 
W1(1I)=23:GOTO7980 
W1(1I)=85 

J=INT (7*RND(1))+l:ONJIGO 
TO800,810,826,830,840,8 
50,860 

W2(1)=17:GOTO87@ 
W2(I)=33:GOTO87@ 
W2(1I)=65:GOTO870 
W2(I)=129:GOTO87@ 
W2(1)=21:GOTO878@ 
W2(I)=23:GOTO870 
W2(1I)=85 

AT=INT (8*RND(1))+1:DE=I 
NT (15*RND(1))4+1 

SU=INT (15*RND(1))+1:RE= 
INT (L5*RND(1))+1 
AD({(I)=AT*16+DE:SR(I)=SU 
*16+RE 

J=INT (4*RND(1))+1:ONJIGO 
TO910,920,930,948 

PO (I) =241:GOTO956 

PO (I) =242:GOTO95G@ 

PO (I) =243:GOT0959@ 

PO (I) =240 

XT (1) =INT (40*RND(1))+10 
J=INT (4*RND(1))+1:ONJGO 
TO970,980,990,1000 
VS(1I)=17:GOTO1#@1¢ 

VS (I) =33:GOTO1010 

VS (I) =65:GOTO1G1¢4 


1g0@ VS(I)=129 
1610 VI(1I)=INT(200*RND(1))+ 


55 


, 1828 DB(I)=INT(B*RND(1)) +1: 
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EG 


XG 


RX 


AB 


OP 


OP 


EC 


JQ 


DA 
Sx 


JP 
DG 


KD 


Jc 
CB 


HR 


CJ 


1030 
1649 
1650 
1060 
1670 


108¢ 


1696 


1160 
1110 
1120 
1139 


1146 
1158 


1160 


1178 


1186 


119@ 
1200 
1219 


1226 


1230 


1240 


1256 


1266 


127¢@ 
128¢ 


1299 
1368 
1310 


1320 
133¢ 


1348 


135¢ 


DC(I)=INT(B8*RND(1))+1: 
DD (I) =INT(8*RND(1))+1 
J=INT (3*RND(1))+1:ONJIG 
OTO1040,105¢0,1968 

VO (I) =31:RETURN 

VO (I) =45:RETURN 

VO (I) =79:RETURN 
GOSUB131@: IF P=>9THEN11 
20 

POKEC,1:PRINT"TO {RVS} 
K{OFF}EYBOARD OR {RVS} 
D{OFF} ISK? 

GETAS: IPAS<>"K"THENIFA 
S<>"D"THENIFAS<>RSTHEN 
1490 

IFAS=RSTHENL19@ 
IFAS="K"THEN1L320 
PRINTCHRS (147) 

INPUT" {BLK}SAVE FILENA 
ME (S - DIR) ";SS:IFSS 
="S"THEN GOSUB 1306@:GO 
TO113@ 

IFSS=""THENLLOG 
OPEN1,8,1,SS:PRINT#1,T 
:PRINT#1,0C (@):PRINT#1 
,11(@):PRINT#1,12(8) :T 
(Il) =T 
PRINT#1,2(@):PRINT#1,F 
L(@) :PRINT#1,W1(@):PRI 
NT#1,W2(0):PRINT#1,AD( 
PRINT#1,SR(@):PRINT#1, 
PO(@):PRINT#1,XT(@):PR 
INT#1,VI(@):PRINT#1,VS 
(8) 
PRINT#1,DB(@):PRINT#1, 
DC(@):PRINT#1,DD(@):PR 
INT#1,VO(8):PRINT#1,5L 
(8) 

GOSUB570:CLOSE1: RETURN 
PRINTCHRS (147) 

INPUT" {BLK}LOAD FILENA 
ME ($ - DIR) ";SS:IF §S 
S="S" THEN GOSUB 1366: 
GOTO1210 
IFSS=""THENGOSUB5S70:GO 
TO129¢0 
OPEN1,8,@,SS:INPUT#1,T 
: INPUT#1,0C (8): INPUT#1 
,11(8):INPUT#1,12(@) 
INPUT#1,2(@):INPUT#1,F 
L(@):INPUT#1,W1(0):INP 
UT#1,W2(0):INPUT#1,AD ( 
0) 
INPUT#1,S5R(0):INPUT#1, 
PO(@):INPUT#1,XT (@):IN 
PUT#1,VI(@):INPUT#1,VS5 
(8) 
INPUT#1,DB(@):INPUT#1, 
DC (@):INPUT#1,DD(@):IN 
PUT#1,V0(@):INPUT#1,SL 
(9) 

GOSUB57@ 
POKEY,8:PRINT: POKEC,?7 
CLOSE1:1=@:RETURN 
PRINT" {CLR} {WHT }":GOSU 
B1370 
SS="":POKE198,@:PRINT: 
RETURN 
P=P+1l:T=P:T(I)=T 

OC (1) =0C (@):1I1(I)=11(0 
):12(1)=12(0):2(1)=2(¢6 
):PL(1I)=FL(@) :W1(1)=W1 
(@) 
W2(I)=W2(@):AD(1I)=AD(@ 
):SR(I)=SR(@):PO(I)=PO 
(8) :XT (1) =XT (8) :VI(1)= 
VI(@) 

VS (I)=VS(@):DB(1I)=DB(@ 
):DC(I)=DC(@):DD(1I)=DD 
(8) :VO(I)*VO(0):SL(I)= 
SL(@) 
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1366 
1376 
1386 
139¢ 
1498 


1416 
1426 


1436 
1446 


1450 
1469 


1476 


2G=Z2G+1:GOSUB570:GOTO5 
60 
OPEN1L5,8,15:O0PEN1,8,@, 
"sg" 

GET#1,A$,A$5 
GET#1,A$,A$ 
S=ST:IFS<>@THENCLOSEL: 
GOTO1469 

GET#1,LO$,HIS 

LO=ASC (LOS+CHRS (@)) :HI 
=ASC (HIS+CHRS(@)):LN=L 
O+HI*256:LNS=MIDS(STRS 
(LN) ,2) 

PRINTLNS+" ">: 
GET#1,BS:IFBS=""THENPR 
INTCHRS (13);:GOTO1399 
PRINTBS; :GOTO144@ 
INPUT#15,EN,EMS,ET,ES: 
IFEN<>@THENPRINTEN;EMS 
;ET;ES 

CLOSE1L5: RETURN 


BEFORE TYPING... 
Before typing in programs, please 


refer to “How to Type In 
COMPUTE!'s Gazette Programs,” 
elsewhere in this issue. 





Sweeper 


See instructions in article on page 
27 before typing in. 


@8G1:11 
8809:39 
9811:9090 
8819:99 
@821:¢@5 
8829:8D 
@831:8D 
8839:A2 
09841:20 
0849:908 
6851:¢82 
0859:4c 
0861:04 
0869:18 
6871:D2 
@879:14 
@881:11 
0889:20 
O891l:11 
0899:B2 
G8A1:8C 
G8A9:20 
G8B1:De 
@8B9:AD 
BBC1:IAC 
88C9:17 
@8D1:8D 
B8D9:A2 
G@8E1:CE 
OBE9:FO 
O8F1:20 
@BF9:12 
8901:20 
B909:A9 
8911:20 
0919:FF 
@921:18 
@929:20 
@931:FF 
@939:D8e 
0941:8D 
@949:8D 
@951:8D 
@959:A9 
@961:1E 
@969:A9 
@971:GE 
0979:09 


28 
43 
20 
a9 
1D 
A9 
15 
FO 
AD 
C5 
65 
39 
Bt 
74 
a8 
i) 
JF 
20 
ll 
12 
31 
c9 
AB 
C6 
OA 
A5 
17 
FO 
c9y 
4F 
20 
AY 
18 
AB 
0a 
1D 
De 
DG 
BD 
AQ 
9D 
A9 
Al 
ag 
BA 
82 
D4 
3 20 


32 
ag 
1E 
C9 
a9 
008 
09 
FE 
65 
cy 
08 
Dd 
20 
Ba 
4c 
8D 
12 
Eg 
20 
20 
OA 
a3 
aD 
4c 
AD 
Al 
ag 
FF 
ag 
13 
FC 
FF 
OA 
QD 
a¢ 
8D 
BD 
Ag 
nl 
D3 
uC 
DB 
gc 
8D 
13 

8D 

Ag 

D2 iI 


9E 
20 
1lF 
AD 
ae 
3F 
81 
18 
8C 
OE 
Ol 
Bia! 
aa 
DC 
26 
a9 
13 

4F 
20 
20 
OF 
LC 
a9 
05 
26 
D@ 
a0 
18 
19 
ll 
SF 
18 

FF 
JA 
81 
a@ 
8D 
8D 
A9 
26 
D4 
oF 
DC 
DG 
Dg 
D4 
8D 
A9 


as 
36 
a0 
EE 
D@ 
1A 
15 
as 
72 
c9 
DU 
66 
4c 
BA 
26 
88 
GE 
8C 
20 
11 
8B 
A7 
1d 
1A 
14 
89 
1B 
BA 
19 
gC 
AB 
A9 
18 
FF 
CD 
O8 
D@ 
De 
8D 
AY 
F9 
9E 
Ad 
G1 
Da 
84 
D4 
8D 


a0 
29 
20 
a9 
A9 
20 
A9 
06 
20 
FO 
Ag 
A5 
16 
06 
12 
1E 
D5 
26 
gD 
Al 
10 
AD 
1A 
co 
a1 
a1 
A9 
OA 
AD 
54 
4c 
20 
AY 
18 
68 
ie 
Mh 
Ds 
DG 
8D 


BA 
38 
FE 
1D 
G2 
a9 
ng 
Ag 
13 
G1 
12 
a8 
a7 
AD 
CD 
26 
26 
6B 
5B 
A5 
26 
0B 
EE 
a9 
AY 
cy 
89 
AG 
89 
29a 
BD 
FF 
OA 
26 
12 
a6 
AS 
AS 
ic 
1 
87 
gc 
gc 
8D 
8D 
8D 
A9 
19 


B9B81:FF 
6989:09 
0991:B¢ 
8999:99 
G9A1L:AG 
O9A9:DO 
99B1:c¢@ 
@9B9:DB 
69C1:99 


99C9:60 


@9D1:FB 
89D9:16 
89E1:D0 
@9E9:68 
O9F1:1F 
@9F9:B9 
@AG1L:E@ 
@AG9:00 
OAL1L:E8 
G8A19:30 
@A21:C9 
GA29:FF 
@A31L:AD 
G@A39:76 
@A41:75 
@A49:79 
@ASl:7A 
@A59:8D 
@A61:0B 
G@A69:0A 
@A71:c8 
@A79:4C 
GABLIGA 
@A89:58 
GA91:4C 
G@A99: 0A 
BAA1L:58 
GAA9:3A 
@AB1:15 
BAB9: 0A 
G@ACL:EE 
G8AC9:15 
@AD1L:@A 
G@AD9:00 
GBAEL:EE 
GAE9:F3 
@AF1:@7 
GBAF9O:GA 
@B@1l:12 
@8a9:c9 
8B11:0¢ 
G@B19:23 
6B21:c9 
@0B29:78 
@B31:01 
OB39:4C 
OB41:AD 
OR49:00 
0@B51:00 
0B59:24 
@B861:0B 
6B869:18 
0B71:60 
G8B879:04 
08881:29 
0B889:51 
BB9O1L:FO 
0A99:20 
OBAL!:16 
@BA9:DG 


BBB1:9C | 


8AB9:18 
GBC1L:D¢d 
GBC9:29 
@BD1:gCc 
@ADI:De 
@BE1:06 
Q@BE9X:FF 
@BF1:D¢d 
Q@BF9:AD 
gce@l:17 
@c89:20 
@C11:8D 
@C19:AD 
@c21:17 


CA 
AE 
8D 
DB 
99 
AG 
De 
CB 
DB 
17 
17 
26 
AC 
9D 
F4 
18 
Da 
66 
LF 
CE 
FO 
FB 
DC 
Al 
38 
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B9 
34 
AD 
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2411:83 
2419:0¢ 
2421:00 
2429:FF 
2431:0¢ 
2439:B8 
2441:AA 
2449:3EE 
2451:4¢ 
2459:A9 
2461:¢4¢ 


0G 
49 
oa 
FC 
OF 
EE 
94 
66 
EA 
eh) 
od 


16 
oa 
Og 
83 
A4 
EE 
AS 
50 
Ad 
03 
06 


40 
0a 
th) 
EA 
gE 
EC 
55 
FF 
00 
AA 
80 


G1 
ag 
8G 
as) 
A8 
FE 
AQ 
54 
A9 
EE 
00 


40 
Eh) 
eh) 
15 
3B 
F4 
99 
BB 
80 
FF 


66 


) fat 


69 
B3 
DE 
1D 
1F 
CA 
SF 
C3 
A9 


ag 


BEFORE TYPING... 


Before typing in programs, please 


refer to ‘How to Type In 
COMPUTE!'s Gazette Programs,” 
elsewhere in this issue, 





Programmer's Page 


Article on page 51. 


Program 1: 1571 Drive Check 
XB 108 DN=8:CLOSE 1:OPEN 1,DN, 


HM 


AQ 


ES 


KK 
KR 
GK 


FE 


119 


120 


1390 


140 
1568 


1690 


179 


15,"U9":INPUT#1,EN,EMS, 

ET,ES 

IF RIGHTS (EMS,2)<>"71" 
{SPACE}THEN PRINT:PRINT 
"NOT A 1571 DRIVE":CLO 

SE 1:END 

PRINT#1,"M=-R"CHRS (@) CHR 

$(128)CHRS(2) :GET#1,AS, 

BS:CLOSE 1 

A=ASC (AS+CHRS (@)):B=ASC 
(BS+CHRS(@)) :RS="UNKNOW 

nN" 

IF A=157 THEN IF 

HEN RS="-91" 

IF A=146 THEN IF 

HEN RS="-93" 

IF A=242 THEN IF B=104 
{SPACE]}THEN RS="-95" 

PRINT "1571 DOS ROM REV 
ISION IS ":RS 


B=30 T 


B=37 T 


Program 2: CBM Drive Check 


JH 19@ INPUT 


EG 


GD 
QH 
MK 
PQ 
BJ 
SB 


GB 


PX 
BG 


PM 


QK 
XK 


CR 


76 


1190 


120 
13¢ 
14 
158 
169 
1708 


1308 


196 
200 


210 


226 


230 


240 


"CHECK WHICH UNIT 
"sU:OPEN 8,U,15 
PRINT#8,"M-R"CHRS (@)CHR 
$(192)CHRRS (2) :GET#8,AS 
rBS 
PRINT#8,"M-R"CHRS (47)CH 
RS (255) CHRS (1) :GET#8,CS 
CLOSE 8 

A=ASC (AS+CHRS (@)):B=ASC 
(BS+CHRS (@)) :C=ASC (CS+C 
HRS (@)) 


IF A<>151 THEN 200 

IF C<>169 THEN PRINT "1 
541":END 

IF B=708 THEN PRINT "154 
1B WITH UPDATE":ND 

IF B=17@ THEN PRINT "15 
41B THAT NEEDS UPDATE": 
END 

IF B=224 THEN PRINT "15 
41-II":END 

IF A=56 THEN PRINT "157 


1 WITH UPDATE":END 
IF A=66 THEN PRINT "157 


1 THAT NEEDS UPDATE":EN 
D 

IF A=132 THEN PRINT "15 
71CR" SEND 

IF A=192 THEN PRINT "15 
81";END 

PRINT "UNRECOGNIZED DRI 


VE " 
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CHRS Graphics 


See instructions in article on page 
30 before typing in. 


Program 1: CHRS Graphics 


7TCOG:A9 
7C@G:A9 
7016:05 
7C18:7D 
7C020:03 
7C28:8A 
7C030:D@ 
7038:54 
7040:54 
7C48:B2 
7050: BD 
7058:7C 
7C60:AD 
7C68:7C 
7C7Or:A2 
7C78:F9 
7C080:85 
70886:40 
7090:8D 
7C9B:A9 
7CAG: 20 
TCAB:A9 
7CBO:16 
7CB8:BC 
70C0:48 
7CCB:AC 
7CDO:FO 
7CD8:D¢a 
7CE@: 20 
TCE8:FE 
7JCFGQ:84 
TCFB:FF 
7D9G:FO 
7D88:24 
7D1LG:A9 
7D18:c9 
7D20:84 
7D28:BD 
7D30:F5 
7D38:71 
70D40:01 
7D48:c9 
7D50:55 
7D58:F@ 
7D60:FB 
7D68:0B 
7D70:9E 
7D78:02 
7D8G:A9 
7D88:Cc8 
7D90:7D 
7D98:0B 
7DAG@:B9 
7TDA8:D@ 
7DB@G:A6 
7DBS:F5 
7DC8:38 
7JDCS8:CA 
7TDDO:FA 
7DD8:¢5 
TDE@:A6 
TDES8:4F 
7TDFO@:43 
TDF8:54 
7E@@:45 
7E@8:41 
7E10:00 
TELB:AE 
7E20:B9 
7E28:39 
7E30:73 
7E38:5F 
7E40:68 
7TE48:49 
7E50:8D 
7E58:bDe 
TEGO:A2 


D8 
EC 
03 
8D 


AS 


9D 
F? 
7C 
7C 
fc 
30 
CA 
51 
90 
ag 
20 
85 
AY 
18 
1 
1E 
OE 
ET 
7C 
98 
@D 
14 
OF 
BE 
4c 
OF 
PO 
37 
@F 
99 
3c 
OB 
00 
cg 
E8 
FQ 
49 
DG 
DF 
B81 
cB 
A@ 
1@ 
FF 
E8 
FQ 
Da 


E@ | 
EG 


cg 
c9 
E9 
FO 
38 
20 
44 
41 
53 
4F 
52 
D2 
20 
A? 
10 
TE 
aa 
TE 
Bl 
TE 
82 
8D 
08 


8D 


O1 
a4 
AC 
83 
8D 
36 
B2 
ce 
@3 
24 
8D 
F4 
18 
EE 
20 
8c 
86 
8D 
A9 
86 
Ag 
16 
BB 
16 
Ag 
30 
BC 
A3 
6c 
FE 
gg 
ES 
08 
2D 
25 
1D 
86 
38 
DG 
99 
38 
@2 
85 
88 
DG 
9D 
B4 
99 
7A 


ag 


cy 
A6 
16 
CA 
PO 
BO 
AA 


ca 
AB 
4F 
44 
56 
53 
=F 
i J 
i) 
oe 
E9 
B9 
79 
7E 
TE 
DP 
20 
46 
1 


40 
83 
8D 
AQ 
og 
9D 
ic 
18 
EE 
85 
Ce 
C6 
69 
52 
A2 
Ag 
AQ 
03 
4c 
G2 
1D 
E/7 
7¢ 
81 
TF 
LG 
F6 
FD 
@2 
A6 
82 
De 
cg 
cg 
Cs 
B4 
VA 
Fg 
308 
FB 
E9 
85 
a8 
Fd 
FO 


20 
Ag 
86 
11 
83 
ih) 
DB 
69 
25 
26 
36 
26 
03 
7c 
BA 
ag 
a9 
40 
BD 
BD 
BD 
A9 
DG 
6@ 
8D 
20 
26 
20 
Ag 
7A 
10 
F4 
22 
3F 
36 
71 
CA 
9E 
@5 
81 
3A 
OF 
BD 
DB 
A6 
18 
OF 
81 
AG 
38 
DG 
E6 
BY 
83 
24 
4c 
49 
El 
El 
F5 
c4 
41 
45 
41 
43 
54 
1A 
14 
OA 
TE 
4c 
TE 
7E 
8D 
TE 
A2 
BA 


BB 
7C 
83 
8D 
Az 
37 
15 
40 
wG 
A2 
EE 
DG 
8D 
Da 
Ed 
B5 
BD 
AY 
19 
20 


18 


08 
83 
48 
aD 
2 
El 
18 
4c 
AG 
a7 
c9 
F@ 
DO 


90 


AG 
C8 
AG 
OB 
BY 
PO 
38 
808 
cs 
TA 
PA 


DD 
46 
80 
FS 
47 
BD 
BD 
20 
AA 
26 
4E 
F2 
59 
94 
EF 
AC 
1D 
BO 
A@ 
18 
14 
Al 
64 
EE 
D1 
7D 
13 
CZ 
6A 
17 
CF 
92 
B1 
AA 
E6 
16 
13 
42 
06 
2C 
AG 
77 
AF 
1lF 
Cl 
21 
B7 
A6 
Fa 
AG 
36 
99 
61 
23 
2F 
FE 
1 
53 
21 
E8 
AE 
CA 
85 
94 
AA 
63 
36 
9A 
BS 
9E 
37 
88 
1D 
CA 
BD 
41 
E@ 


7E68:CE 
7E70:28 
7E78:@3 
TE8@:82 
7E88:8D 
7E9G:DO 
7JE98:D1 
TEAG:@1 
TEA8:16 
7VEB@:8D 
7EBS8:40 
7JEC@:57 
7EC8:Be 
7ED@:20 
TED8:E2 
TEE@:9E 
TEE8:A5 
TEFO@:85 
TEFS:20 
7JFOG: 00 
7JFO8:7D 
7F16:90 
7F18:85 
7TF20: 80 
7F28:8D 
TF36:7F 
7F38:09 
7F48:19 
7F48:75 
7JF5O0:FF 
7F58:c9 
7F6@:A9 
TF68:E6 
TFIO:E4 
TETJBLEC 
7F86:18 
7F88:9F 
7F98:00 
7F98:¢2 
7FAG: 83 
7FAB8:28 
7FB@:AD 
JFB8:AD 
TECO:A8 
VFCB:@A 
7FD@:4c 
7FD8:00 
7FE@:AD 
TJFE8:4A 
7FFO:06 
7FFS:Be 
8a¢e0:05 
8G@8:08 
BO1LG:A9 
8018:Ba 
8G20:A6 
8028:06 
Bd30:4Cc 
8038:8B 
8040:8¢ 
B8048:FF 
8050:8¢ 
8058:07 
8060:GA 
8068:B6 
80760:46 
8078:4F 
8080:45 
8G88:54 
8690:53 
8098:45 
BOAG=54 
BGA8:55 
80B0:28 
BOBS:54 
BAaCG:45 
88C8:2¢ 
8aD0:45 
B@D8:49 
B8GE@:81 
BGES:AA 
8QFG:A8 
B8GF8:55 
8100:54 
S1O8:FF 


TE 
DS 
20 
40 
23 
29 
El 
20 
DG 
a2 
AD 
A6 
Ol 
BD 
4c 
AD 
65 
F9 
DC 
13 
on) 
94 
Es 
96 
29 
BD 
85 
Ba 
7E 
85 
08 
26 
27 
F8 
85 
69 
68 
0 
82 
83 
D@ 
aC 
ag 

DO 
Ag 

31 

DC 
5B 
Ba 
4A 
82 
F@ 
A6 
4A 
10 
05 
A9 
31 

4c 
BD 
68 
4c 
7 
82 
8a 
aa 
395 
4D 
20 
or) 
20 
00 
20 
59 
45 
20 
4F 
59 
34 
La 
AA 
AB 
=) 
54 
FF 


A 
FF 
TE 
8D 
Da 
10 
A2 
BA 
8D 
40 
0g 
G2 
60 
FF 
BD 
20 
60 
20 
TE 
7D 
93 
85 
BD 
8D 
TF 
0 
27 
25 
86 
A7 
Fd 
91 
ca 
D@ 
35 
04 
60 
1 
G2 
a3 
AS 
82 
DC 
10 
8d 
EA 
29 
82 
a6 
Bg 
E6 
GE 
85 
BG 
E6 
E@ 
4A 
EBA 
58 
54 
AA 
D7 
a7 
70 
89 
43 
54 
4F 
4F 
47 
43 
41 
53 
2F 
52 
23 
34 
20 
a0 
LT 
AA 
A8 
= pe 
54 
Ee 


i) 
BO 
TE 
22 
AD 
44 
OL 
FF 
a1 
AD 
40 
A4 
4c 
20 
FF 
BD 
A9 
DE 
48 
00 
85 
6C 
00 
54 
BD 
99 
A6 
ca 
26 
BD 
BC 
35 
C4 
C9 
85 
B5 
00 
1 
G2 
83 
AY 
2D 
29 
C5 
85 
AS 
OF 
85 
A6 
038 
06 
C6 
F@ 
16 
85 
6F 
90 
20 
BA 
80 
BD 
B6 
06 
72 
8a 
48 
20 
32 
46 
41 
4F 
52 
55 
4E 
20 
20 
48 
54 
SF 
1D 
AA 
A8 
we 
54 
FF 


A2 
22 
4c 
DG 
1 
85 
2c 
20 
40 
23 
20 
83 
F9 
6 
20 
AD 
80 
TE 
2a 
95 
F8 
18 
92 
TE 
i) 
BD 
6F 
26 
A6 
FF 
24 
A5 
F7 
60 
9E 
36 
ad 
Ol 
2 
EE 
FO 
5D 
19 
AB 
2A 
AQ 
49 
AY 
86 
A6 
4A 
a5 
a4 
A6 
A6 
BO 
A@ 
3C 
BA 
AA 
62 
a8 
18 
78 
80 
52 
4F 
59 
26 
52 
4C 
45 
52 
29 
46 
20 
45 
4F 
3C 
1B 
AA 
A8 
55 
54 
FF 


B1l1l@:FC 
8118:00 
8120:03 
8128:06 
8130:89 
8138:80 
B140:FF 
8148:89 
8150:7F 
B158:FF 
8160:00 
8168:FF 
8170:bDa 
8178:7B 
8189: 28 
8188:00 
8190:1C 
B198:De 
BlA@:85 
BlA8:50 
B1B8:01 
81B8:290 
81C8:C8 
81C8:D@¢ 
81D¢0:¢0Cc 
B81D8:El 
S81E@:78 
8LE8:8D 
BLFO:40 
BlF8:D8 
8200:20 
8208:87 
8210:87 
§8218:30 
8220:82 
8228:03 
8230:AB 
8238:De 
8240:DA 
8248:E9 
8250:8D 
8258:907 
$2690:D¢0 
8268:04 
8270:8E 
8278:5A 
§8280:BA 
8288:57 
8290:9D 
8298:82 
B82A0:0A 
82A8:82 
82B0:C7 
82B8:2D 
82C0:91 
82C8:5C 
82D0:14 
82D8:E9 
82E@:42 
82E8:07 
82F0:EB 
BS2F8:02 
8300:F1 
B8308:3A 
8310:DB 
8318: 2E 
8320:6D 
8328:38 
8330:38 
8338:18 
8340:45 
8348:59 
8350:4B 
8358:05 
8360:4B 
8368:AD 
8370:86 
8378:A9 
8380:9A 
8388: 86 
8390:19 
§8398:8D 
S3AQ:EE 
83A8:83 
83B0:A0 


FC 
a1 
G1 
gl 
FF 
8G 
FF 
80 
GB 
7F 
FC 
A9 
8D 
84 
44 
38 
DG 
38 
gl 
39 
58 
75 
ca 
EC 
84 
80 
AQ 
15 
9D 
83 
cg 
2c 
38 
a7 
AS 
20 
82 
FS 
E8 
30 
5B 
06 
14 
EG 
20 
82 
a8 
82 
92 
26 
AA 
48 
86 
55 
ll 
D5 
85 
89 
85 
85 
85 
84 
83 
83 
BE 
8E 
83 
49 
49 
EC 
cg 
AD 
86 
Bl 
86 
57 
A4 
47 
83 
26 
F2 
47 
9A 
AQ 
gp 


FC 
G1 


Ol 


81 
8a 
hy 
86 
Ba 
40 
aa 
00 
8D 
84 
86 
A2 
16 
2F 
10 
27 
18 
40 
91 
Da 
DF 
@5 
ie) 
8D 
58 
Da 
4F 
20 
82 
3D 
43 


C5 1 


86 
AB 
B6 
1A 
BD 
4c 
ag 
16 
B@ 
4C 


G2 


20 
89 
9D 
B82 
D3 
28 
88 
4c 
1D 
cc 
4E 
B4 
85 
85 
86 
84 
83 
B3 
SF 
8B 
B5 
9D 
9D 
20 
FG 
Dg 
BE 
8D 
BE 
91 
A9 
99 
8D 
83 
20 
EE 
68 
8D 
C7 


a0 
03 
a0 
00 
80 


ie: }' 


FE 
eG 
TF 
FF 
ag 
AD 
Dg 
8a 
OG 
FE 
86 
AQ 
D3 
3/ 
AG 
69 
E@ 
O7 
8a 
19 
AQ 
BD 
F7 
9A 
20 
20 
5c 
6E 
FD 
FF 
62 
OF 
FS 
BG 
8a 
A5 
1¢ 
57 
BA 
c9 
08 
26 
4c 
82 
BD 
43 
4D 
53 
2A 
c6 
1D 
3F 
65 
Dg 
96 
EB 
A3 
BE 
A9 
23 
BD 
BD 
CA 
AD 
BE 
60 
8D 
60 
91 
20 
59 
90 
20 
EF] 
AS 
DG 
BD 
A2 
A7 


B3BS:A6 
83C0:¢48 
83c8:cc 
83D0:CD 
83D8:A2 
B3E0:CF 
83E8:60 
83F0:D¢d 
B83F8:00 
8400:95 
84968:84 
8410:82 
B4ALB:EE 
B420:82 
8429:0F 
8430:20 
8438:387 
8440:9D 
8448:06 
8450:07 
8458:58 
8460:00 
8468:8c 
S47@0:EA 
8478:21 
8480:01 
8498:D0 
B490:A2 
BAIB:FL 
B4A0:B0 
B4A8:Bl1 
B4B0:61 
84B8:9D 
84C0:95 
84C8:96 
B4D0:8E 
84D8:8B 
B4E0:00 
B4E8:00 
84F0:60 
B4F8:A9 
B500:FA 
85@08:AD 
8510:04 
8518:29 
§8520:20 
8528:8B 
8530:290 
8538:05 
8540:A9 
8548:A6 
8550:57 
8558:AE 
8560:02 
8568:29 
8570:82 
8578:c9 
8580:8D 
8588:A5 
8590:4Cc 
B598:0A 
B5A0:0A 
B5A8:69 
85B0:43 
B85B8:4C 
85C0:26 
B85C8:86 
85D0:85 
B5D8:AG 
B85E0:7F 
BSE8:DB 
85F@0:8D 
BSF8:86 
B600:CA 
8608:91 
8610:20 
8618:20 
8620:10 


8628:0D 


B630:FA 
B638:D4 
8640:20 
8648:FOC 
B650:AA 
8658:BE 


03 
10 
AD 
EE 
9D 
F7 
A9 
2c 
cg 
59 
Ad 
CA 
rot 


, BD 


84 
C3 
B6 
D@ 
00 
ad 
98 
06 
8D 
58 
BD 
Ag 
A2 
F9 
BC 
Bl 
92 
48 
Bl 
69 
00 
AA 
7D 
97 
8C 
92 
0a 
88 
10 
a4 
Ag 
07 
F3 
a7 
B2 
1 
8D 
A6 
@2 
DO 
5D 
E4 
E9 
B2 
90 
1A 
PA 
69 

20 

86 

D4 

L5 
C6 

72 

6D 
F5 
A2 

gD 
86 

aD 
PA 
FS 

20 

8D 
91 

2a 

20 

1d 

06 

4A 

BD 


20 
EA 
47 
CE 
47 
BD 
a8 
Ag 
70 
B82 
03 
1@ 
84 
21 
8D 
86 
d2 
FA 
G1 
Ol 
82 
60 
14 
Ag 
20 
00 
JF 
68 
2a 
61 
48 
cs 
61 
85 
9D 
68 
aa 
69 
4c 
BD 
92 
DG 
FO 
AD 
JD 
a5 
88 
B82 
4c 
2C 
5A 
a4 
BO 
68 
B2 
FF 
2F 
26 
85 
90 
85 
00 
Ce 
4c 
BC 
85 
B2 
BD 
86 
E8 
gD 
CA 
88 
Ag 
68 
A2 
FP 
DG 
86 
86 
6D 
FS 
4A 
4A 
85 


iF 
60 
90 
83 
98 
41 
A2 
a8 
Bg 
4c 
AD 
FA 
CE 
Dd 
86 
28 
a5 
60 
00 
6 
60 
20 
83 
G6 
Da 
8D 
SA 
68 
67 
AA 
C8 
Bl 
9D 
9D 
a6 
20 
96 
ad 
9D 
FD 
E8 
F4 
El 
16 
A2 
04 
18 
29 
4F 
A9 
82 
F@ 
63 
A2 
2D 
FO 
96 
D4 
E9 
86 
B2 
9¢ 
B5 
6B 
E6 
4c 
4c 
Dg 
CA 
EG 
20 
208 
16 
08 
Ag 
@D 
86 
EE 
CA 
8D 
86 
88 
4A 
AB 
59 


86 
20 
EE 
68 
9D 
65 
81 
A2 
E8 
aC 
ae 
60 
56 
29 
82 
06 
84 
G1 
81 
EE 
A9 
D4 
Ag 
BD 
AY 
15 
20 
20 
8c 
c8 
Bl 
61 
a6 
I) 
of 
EA 
9D 
9D 
B4 
B4 
Dg 
66 
AS 
Da 
gD 
20 
EE 
07 
85 
82 
AD 
OA 
BD 
6 
5c 
F3 
38 
BC 
64 
E9 
OA 
82 
20 
B5 
B2 
B9 
c¢@ 
35 
20 
aD 
72 
6D 
FS 
20 
a0 
cs 


CA 


A2 
14 
DO 
cB 
DG 
4A 
84 
85 


8660:58 
8668:D4 
8670:85 


8678:59 


868¢0:59 
8688:91 
§8690:60 
8698:41 
86A0: 20 
86A8:86 
B86B0:A2 
B6B8: 606 
86Ce@:4C 
B6CB:A4 
86D6: 208 
86D8:35 
B6E@:06 
86E8:AD 
B6FO:AD 
86F8:01 
B7O00:A9 
B7GB:A2 
8718:18 
8718:G0F 
8726: 2E 
8728:2¢0 
8730:60 
8738:¢02 


8740320 


8748:7D 
8750:0B 
8758:06 
8760:0B 
8768:06 
8770:905 
8778:8D 
8780:03 
B8788:FB 
8790:C8 
8798:4B 
B87AG:81 


S7A8:9A 


B7B@:A2 
87B8:18 
87C@:29 
B7CBIA2 
87D0:8D 
87D8:8D 
B7E@:06 
S87E8:81 
B87F0:38 
S7F8:87 
8800:18 
B8808:Bl 
8810:88 
8818:85 
8820: 26 
BBE2ZB:E@ 
8830:FE 
8838:78 
B8840:05 
8848:DA 
8850:84 
8858:A9 
8860:26 
8868:A9 
BA7O:AA 
8878:AD 
8880:09 
8888:91 
8890:D¢d 
8898:5D 
88A0:60 
88A8:6¢ 
88BG:1F 
88B8:26 
88C0:85 
BB8CH8:60 
88D8:99 
§88D8:090 
BBEG:10 
B8E8:AA 
B88F@:4C 
88F8:40 
8900:D0 


9C 
5C 
Bl 
Bl 
A5 
69 
59 
AG 
86 
10 
20 
“) 
86 
20 
B6 
36 
16 
1 
Ol 
9D 
BD 
Ag 
2A 
ED 
cf 
87 
75 
9E 
88 
B7 
00 
BO 
0G 
} 99 
69 
87 
29 
8C 
8c 
DS 
ED 
OA 
26 
OA 


BD 
B8 
88 
E? 
4A 
LE 
39 
32 
Bl 
5D 
BD 
20 
D@ 
Oe 


a6 
AQ 
AG 
91 
28 
06 
Ag 
91 
E@ 
cB 
A5 
oF 
27 
LC 
A9 
OA 
A5 
5B 
OA 
A9 
3D 
. BD 
88 
40 
A9 


OA | 


88 


5A 
20 
A6 
OF 
59 
B6 
59 
82 
10 
CA 
80 


20) 


20 
Ag 
Bl 
Dd 
20 
A2 
CA 
60 
31 
87 
AG 


OF 


18 
35 
81 
BS 
80 
ES 
3E 
69 
16 
ED 
A6 
FA 
8C 
BA 
06 
8D 
8D 
A9 
87 
8D 
18 
88 
88 
Da 
AD 
4A 
0a 
Bl 
Al 
BD 
85 
A2 
c5 
28 
cs 
D9 
=| 
a4 
58 
4c 
06 
9D 
AD 
@2 
ca 
69 
E6 
a8 
1F 
38 


OA 


38 
79 
00 
a1 
90 
66 
B9 
20 
20 


69 
86 
20 
20 
AT 
5B 
20 
a0 
8B 
60 
FA 
B2 
8a 
BD 
BS 
FO 
60 
86 
BD 
E/ 
Ol 
Ad 
Ca 
Ag 
2c 
ED 
86 
10 
18 
BY 
9D 
90 
9D 
A5 
DG 
F@ 
BC 
07 
69 
69 
87 
88 
29 
gg 
B87 
00 
00 
E@ 
E9 
D@ 
FF 
00 
20 
38 
Ba 
BE 
E8 
85 
2A 
5 
DA 
26 
10 
6 
88 
2A 


| BD 


B2 
A7 
08 
85 
E6 
A4 
1B 
OA 
98 
58 
99 
99 
AD 
1D 
83 
0G 
89 
88 
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26 
4C 
9D 
26 
DF 
A6 
3c 
AA 
5E 
9D 
a1 
8a 
23 
AD 
A5 
94 
12 
85 
BE 
E5 
7D 
OA 
D6 
47 
AD 
OA 
61 
BD 
1B 
DB 
78 
D7 
85 
45 
61 
69 
43 
26 
45 
D2 
18 
61 
86 
60 
06 
595 
5C 
1c 
A4 
16 
ae 
CF 
2A 
TE 
Cl 
29 
C6 
23 
16 
TA 
3B 
AD 
708 
E7 
16 
31 
55 
BB 
E5 
14 
B81 
OE 
E8 
39 
Ol 
26 
34 
4A 
18 
73 
B2 
B4 
DE 
D2 
El 


ff 


8908:68 
891¢0:Ba 


8918:86 


8920:90¢0 
8928:8A 
8930:CE 
8938:05 
8940:29 
8948:24 
§950:66 
8958:89 
8960:91 
B968:82 
8970:29 
8978:A8 
898G:Bl1 
8988:11 
8990:89 
8998:A4 
89A0:91 
B9A8:B2 
B9BG: 4a 
B9BS:BF 
89CE6:FC 
B9CB:A4 
89D@:A9 
89D8:26 
B9EG:E7 
B89E8:F7 
S9FG:AD 
89F8:8D 
SAG0:Bad 
BAGS: 2F 
BAI1@:A9 
BALS:AB 
BA20:8A 
BAZB:AA 
8A30:00 
BA38:C6 
8A40:20 


8A48:40 


BA5S@:A2 
BA5S8:A2 
8A668:186 
BA68:8A 
BA7@0:Bl 
BATB:EF7 
BA80:CB 
BA88:8D 
BA90:6D 
8A98:26 
SAAG:EC 
BAA8:5D 
8AB@:78 
BABS:A9 
BAC@:388 
BAC8:10 
BADO@:85 
SAD8:8D 
B8AE@:@3 
SAE8:@8 
SAF@:Bd 
SAFS8:Bl 
SBOG:A8 
8BG8:8¢ 
BB1G:C@ 
8B18:ED 
8B20:20 
8B28:AG 
§8B36:18 
8B38:4C 
8B490:85 
8B48:8B 
8850: 20 
B8B58:78 
8B66:9A 
8B68:68 
8B870:8Cc 
8B78:B2 
8B80:20 
8B88:26 
8B90:88 
8B98:26 
8BAG:86 
BBA8:8C 


FG 
CD 
17 
40 
AD 
A5 
49 
Bl 
86 
A4 
AD 
91 
89 
AA 
3D 
BD 
48 
18 
A4 
5A 
G2 
FD 
AA 
gC 
59 
F7 
ie 
F4 
4 
BD 
85 
CD 
20 
1lE 
BA 
E6 
BA 
D7? 
AA 
20 


BA 


E@ 
28 
8D 
20 
57 
AQ 
OO 
A2 
AA 
88 
Bl 
18 
85 
01 
Bl 
20 
58 
A5 
ag 
0¢ 
G1 
EA 
c9 
A9 
ED 
68 
20 
61 
91 
20 
20 
68 
F@ 
8B 
Ba 
20 
AG 
18 
4c 
Ag 
60 
90 
8C 
8B 


La 


B@ 
AD 
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B8BB@:29 
B8BBS8:8cC 
8BC@E:03 
8BC8:61 
8BD@:61 
8BD8:¢02 
SBEG:E4 
8BE8:@3 
SBFO:A2 
8BF8:65 
BCOGrIA2 
5CO8:60 
8C10:8B 
8C18:8D 
8C20:85 
8C28:85 
8C30:C8 
8C38:18 
B8C40:86 
8C48:¢00 
8C50:69 
8C58:6¢ 
8C60:23 
8C68:61 
8C78:A5 
8C78:C2 
8CB8G:B2 
8C88:B5 


8c90G:1¢ 


8C98:9F 
BCAG:B6 
8CA8:8D 
8CBG:20 


8CBS:D¢@ | 


8CC@:AD 
8CCB8:EE 
8CD8:80 
BCD8:GE 
BCE@:84 
8CE8:78 
S8CFO@:Ba 
SCFS:Fd 
8D¢0a:8¢ 
8DG8:38 
8D1G:20 
BD1LB:F8 
8D20:B5 
8D28:D¢ 
8030:45 
8038:45 
8D40:68 
8D48:8E 
8D58:69 
8D58:2¢ 
SD60:E8 
8D68:48 
8D708:8D 
8D78:00 
BDBG:A2 
8D88:04 
8D98:E1 
8D98:21 
8DAG@:06 
8DA8:07 
8DB@:35 
8DB8: 36 
8DCO:35 
8DbC8:35 
8DDO:36 
B8DD8:DC 


B8DE@G:26 ~ 


8DE8:8D 
SDFO:20 
BDF8:29 
BE@O:8B 
BE@8: 68 
8E10:26 
8E18:29 
BE20:28 
8E28:106 
BE30:7E 
BE38:A9 
BE4@:A9 
8E48:48 
SES@:E6 


29 | 


63 
LE 
63 
02 
EA 
61 
86 
AY 
06 
86 
85 
OF 
40 
60 
60 
61 
@5 
Ad 
65 
20 
61 
4c 
G2 
BD 
A2 
E@ 
18 
AY 
AY 
BE 
69 
BC 
ES 
40 
gc 
74 
FQ 
AS 
03 
A2 
86 
FO 
BS 
BD 
E5 
20 
AQ9 
Ad 
AD 
85 


85 . 


B85 
BD 
F8 
67 
Ag 


1 @4 


2g 
19 
31 
rps 
06 
28 
9E 
oF 
Bl 
20 
9F 
BC 
86 
8D 
86 
86 
88 
26 
55 
4A 
a7 
AG 
Ag 
85 
85 
9E 
C6 


BE58:36 
BE60:BC 
8E68:86 
8E70:0D 
BE78:86 
BE8@:86 
BESS:CA 
BE9G:7E 
HE98:8E 
BEA@:8E 
BEAS8:8E 
BEB@:BD 
SEBS: 6F 
8EC@:8E 
8EC8:8D 
BED@: 6F 
BEDS: 4c 
BEE@:@D 
B8EE8:92 
BSEFO:F5 
SEFS8:8F 
BF@G:9D 
SFO@8:8E 
BFIG:EA 
BF18:A9 
8F20:88 
8P28:a8F 
BF30:7E 
SF38:A5 
8F40:6F 
BF48:@0D 
B8F50:16 
BFS8:A5 
§F60:6F 
B8F68:0D 
BF708:10 
BF78:A6 
BF8G:A9 
B8F88:92 
B8F90:86 
SF98:84 
BFAG:92 
SFAS8:F3 
8FBG:C8 
S8FBS8:86 
SFCO:85 
8FC8:8F 
BFD@:A2 
BFDS8:AD 
BFE@:9¢ 
BFE8:D@d 
SFF@:A5 
SFFS:B1 
9000:57 
9008:49 
9010:FB 
9018:0E 
90920:900 
9928:8D 
9030:E9 
90938:20 


E6 
SF 
8D 
38 
3D 
A2 
10 
BF 
AD 
88 
8D 
61 
De 
cB 
D1 
92 
BC 
A9 
Dea 
A9 
Ag 
81 
EE 
AY 
a8 
10 
290 
BF 
a4 
AQ 
3E 
F/ 
84 
Ag 
TE 
F/ 
FC 
i) 
8D 
Dg 
26 
EE 
A4 
cé 
Ag 
FA 
98 
a) 
00 
a5 
EE 
F9 
88 
88 
20 
E8 
D@ 
4a 
20 
JF 
33 


9F 
A@ 
7D 
ED 
84 
is) 
DB 
A@ 
00 
10 
BS 
92 
F5 
Ca 
BE 
EE 
OF 
92 
PO 
92 
00 
92 
82 
32 
8D 
F7 
38 
20 
F@ 
oF 
“hs 
Bd 
FQ 
92 
08 
BO 
9A 
8D 
AG 
G2 
A@ 
oF 
26 
GE 
B88 
AQ 
18 
84 
92 
the 
A5 
1¢ 
Ag 
18 
91 
E@ 
Ag 
38 
EA 
C5 
8a 


C6 
GD 


BE 


B2 
BE 
AY 
848 
aD 
92 
FS 
BE 
9D 
EE 
BE 
A@ 
D1 
60 
BD 
EE 
BD 
A2 
CA 
SF 
8D 
a0 


4c 


BE 
58 
03 
BD 
oF 
24 
a3 
BD 
92 
04 
4c 
oF 
BF 
Ag 
ag 
BF 
E8 
DG 
2c 
ag 
69 
FB 
EE 
85 
27 
1B 
Q7 
FS 
86 
GE 
A5 
EY 
89 


PA 


4c 


Program 2: Demo.File1 


3F90:FF 
3F98:E@ 
3FAG:07 
3FA8:89 
3FB0:@63 
3FB8:3F 
3FCO@:F¢d 
3FPC8:6F 
3FDG:FF 
3FD8:¢08 
3FEQ:@62 
3FE8:E@ 
3FF@:C7 
3FF8:38 
400@0:F2 
4008:00 
4016:¢1 
4018:@1 
4920:62 
4928:04 
4030:907 
4038:27 


FF 
F@ 
gc 
80 
@3 
CF 
1d 
aF 
Fi 
FO 
SE 
BF 
8D 
38 
cs 
20 
06 
ae 
G1 
82 
85 
a7 


FF 
88 
OF 
00 
03 
FF 
Fa 
OF 
FF 
96 
08 
89 
BF 
3¢@ 
F7 
FA 
FS 
ey) 
@1 
G1 
@2 
07 


0 
ag 
OF 
PU 
07 
FO 
Cd 
@3 
3C 
F@ 
OF 
FF 
FC 
7FP 
F@ 
Bl 
F8 
26 
aa 
ag 
Ol 
82 


aa 
88 
OF 
E@ 
OB 
FF 
E@ 
07 
7E 
8a 
OF 
FC 
FF 
76 
0a 
a4 
64 
FE 
FC 
a0 
Ol 
1 


20 
77 
AQ 
TT 
BB 
86 
20 
9B 
9B 
B2 
008 
E@ 
B5 
92 
8D 
F7 
AG 
6F 
16 
02 
92 
FF 
De 
@D 
8F 
TE 
20 
BF 
A2 
AQ 
88 
66 
Ad 
Ad 
88 
60 
00 
69 
6D 
88 
ag 
Dd 
DE 
B@ 
F9 
DY 
GF 
2/ 
3F 
08 
PA 
20 
91 
a@ 
A4 
c@ 
AD 
BG 
38 
03 
ag 


E7 
70 
05 
cea 
OE 
38 
78 
a8 
3c 
88 
06 
83 
C3 
38 
ao 
a1 
02 
03 
EY 
Fl 
F3 
F6 


FE 
89 
OA 
DE 
CE 
42 
CF 
04 
B6 
ED 
5A 
16 
D2 
68 
99 
F3 
FD 
66 
33 
FS 
2D 
6B 
99 
A7 
D5 
2E 
AB 
Ba 
39 
B7 
C2 
9A 
D9 
37 
A3 
Ba 
D5 
98 
24 
6F 
9D 
DB 
FD 
a4 
AA 
B7 
7F 
C6 
8F 
AC 
28 
23 
15 
FO 
87 
32 
80 
AE 
34 
4E 
CD 


66 
cc 
ja 
ae 
D8 
70 
A2 
1D 
2A 
TE 
93 
DD 
83 
AC 
44 
34 
rg 
51 
Ci 
AD 
AB 
12 


4040:F5 91 Fl @9 G2 @1 
4048:FC FB FS BS 8 82 
4950:600 28 FD Fl A8 66 
4958:00 G6 26 FF Al @1 


Program 3: Demo.File2 


3010:83 
3C1B:FE 
3020:DF 
3C28:00 
3C30:FF 
3C38:A8 
3C40:BF 
3C48:80 
3C50:A@ 
3C58:00 
3C60:FE 
3C68: 00 
3C7O:FF 
3C7B8:A8 
3C80:B5 
3C88:FF 
3C90:600 
3C98:62 
3CAQ: 0A 
3CA8: 60 
3CB0: 60 
3CB8: 00 
3CCO:5A 
3CCB: 00 
3CD@6:5A 
3CD8:FF 
3CE@0: 2A 
3CES8: 5F 
3CFO:FF 
3CF8:06 
3D00:0A 
3DG8:FA 
3D10:08 


3D18:2B 


3D20:06 
3D28:EB 
3D30:AF 
3D38:FF 
3D40:00@ 
3D48:00 
3D50:FA 
3D58:FF 
3D60:AA 
3D68:FF 
3D760:8¢ 
3D78:82 
3D8@G:AA 
3DB88:AB 
3D90:BF 
3D98:2A 
3DA@: 0A 
3DA8: 00 
3DBG: 30 
3DB8:00 
3DCO:FF 
3DC8:00 
3DD0:A@ 
3IDDS:FA 


3IDEO: 980 


IDES:FF 
3IDFO:FF 


3DF8:00 | 


3E@Q:FF 
3E08:BF 
3E10:90¢8 
3E18:AF 
3EZ@0:FA 
3JEZ8:00 
SE30:AF 
3E38:06¢ 
3E40:F5 
3E48: 08 
3E58:90 
3E58:900 
3E60:A0 
3E68:D7 
3E7@:0A 
3E78:00 
3E8@G:E8 


99 
FE 


99 
TA 
F/7 
AG 
FF 
FF 
AF 
00 
AG 
aa 
FA 
A 
LE; 
FE 
AD 
FF 
OA 
a6 
OA 
AG 
io) 
aa 
F5 


83 
FA 
Ei 
Es 
FS 
FF 
AF 
0a 
AQ 
00 
PA 
Es 
5F 
FE 
AF 
FF 
2B 
el) 
OA 
68 
0G 
00 
FD 
ES 
5A 
PF 
FF 
JE 
AF 
EA 
OA 


| FF 


AP 
OA 
2A 
FF 
FF 
AA 
a0 
50 
35 
oF 
0G 
EA 
8G 
86 
AF 
EA 
FF 
aa 
AF 
92 
A8 
a¢ 
EE 
AG 
a@ 
55 
06 
5A 
FF 
AA 
5F 
FF 


ag 


OA 
FF 
ag 
2B 
a) 
oF 
0 
i) 
00 
80 
FF 
G2 
00 
a0 


99 


99 
AG 
FF 
PA 
EF 


ag 
ag 
gl 
ag 


FE 
00 
FF 
DE 
A8 


FF 


0a 
00 
A@ 
80 
ag 
FE 
A8 
EF 
OU 
F7 
BF 
aa 
OA 
00 
A@ 
00 
0G 
55 
BA 
SA 
JF 
OA 
SF 
FF 
BA 
GA 
EB 
00 
AF 
FF 
FF 
AF 
AA 
ag 
A8 
FE 
ie) 
og 
08 
et) 
FE 
FE 
AA 
OA 
AF 
i) 
FF 
FA 
FF 
80 
OG 
ES 
ES 
OA 
PF 
FF 
OA 
FF 
AF 
OA 
BF 
EA 
a2 
AF 
aad 
80 
FE 
2B 
00 
0a 
ag 
AB 
ag 


3ES8:EFF 
3E90:AF 
3E98:00 
3EAG@: GA 
3EA8: 090 
3EBO: 00 
3EB8:AG@ 
3EC@:E8 
3EC8:A8 
3EDO0: FF 
3ED8:FA 
3EE@:7F 
3EE8:55 
3EF@:F5 
3EF8:AD 
3F00:95 
3FO08:F5 
3F10:90 
3F18:40 
3F20: 2B 
3F2ZB:FF 
3F30:BF 
3F38:AA 
3F40:AB 
3F48:00 
3F5Q:AA 
3F58:00 
3F60:00 
3F68:F5 
3F70:FF 
3F/8:0A 
3F8@:F5 
3F88:2F 
3F90:5F 
3F98:FA 
3FAQ:FE 


3PAB8:AF 


3FBO:FA 
3FB8:F5 
3FC@:5A 
3FC8: 60 
3FD@:0A 
3FD8:55 
3FE@:A@ 
3FE8:AA 
3FF@:2A 
3FF8:9090 
4000:82 
40068:380 
4010:20 
4018:D4 
4020:F6 
4928:D2 
4930:09 
4038:BD 
4040:09 
4048:0D 
4050:05 
4@58:c9 
4960:DD 
4Q068:CE 
4070:D8 
4078:4D 
4@80:1D 
4088:0D 
4090:09 
4098:9D 
49A0:C5 
4Q0A8:BE 
40B0:08 
4@B8:1E 
40C@6:9E 
40C8:A4 
40D0:9E 
40D8:97 
4Q0E0:0E 
4Q0E8:DE 
4Q0F0:61 
40F8:B8 
4100:0A 
4108:2A 
4114:05 
4118:8B 
4120:86 
4128:AA 


4130:CA 
4138:E9 
414@0:A7 
4148:AD 


BA 
B6 
A5 
AC 


36 
B7 
AB 
AE 


a7 
EB 
AA 
ag 


84 
CF 
A9 
AF 


Ol 
a¢ 


B3 


EA 


BS 
Bl 
B2 
ag 


AS 
AC 
54 
29 





BA 
3c 
BA 
07 
A§ 
AB 
AE 
86 
FC 
FC 
a9 
et) 


19 
1c 
95 
34 
19 
OF 
F7 
19 
G1 
Ca 
29 
AB 


ic 
pc 
FA 
OA 
FF 
A7 
ES 
oa 
BC 
FC 
09 
OG 


ic 
4c 
FC 
OA 
20 
E8 
E6 
in) 
FPA 
FC 
FC 
ag 


9A 
AC 
FC 
BA 
a@ 
B4 
E7 
20 
FC 
1c 


ag 
4A 
1A 
BA 
4 
CF 
AY 
20 
FC 
FC 


ag 
4c 
9C 
lA 
1 
a0 
FE 
2G 
EC 
FC 


4150:00 
4158:FC 
416@:CA 
4168:8C 
4170:07 
4178:EB 
418@0:AA 
4188:00 
4190:FA 
4198:6cC 
41A0:FC BC FA FC 
41A8:09 09 89 89 


Program 4: Demo 


MF 1000 IFA=@THENA=1: PRINT" 
{CLR} {DOWN} PLEASE WAIT 
"sLOAD"CHR GRAPHICS",8 

L 
fr 

1010 SYS31744 

162@ POKE198,0:POKE53281,90 

193@ PRINT"{CLR}{9 DOWN}" 

14650 PRINT"{9 RIGHT}GRAPHIC 

S BORROWED FROM" 

PRINT" {DOWN} {15 RIGHT} 

GAZETTE'S" 

PRINT" {DOWN}{9 RIGHT}C 

ROSSROADS AND Q-BIRD" 

DLOAD"DEMO.FILEL 

FORKX=-2T063 

FORM=@TO1L:FORC=0TO20ST 

EP1@ 

FORF=@TOS8STEP2:STAMPF+ 

M,X-C-F,C+FE 

NEXT:NEXT:NEXT:NEXT 

DLOAD"DEMO.FILE2":POKE 

53281,15 

PRINT" {CLR}{23 DOWN}" 

PRINT"{9 RIGHT}>>> PRE 

SS ANY KEY <<<" 

FORQ=GTO6STEP2:FORK=-1 

TO34STEP7 

STAMP (XANDL)+0,X,3*Q:N 

EXT:NEXT 

FORQ=0TO6STEP2:FORX=-1 

TO3ASTEPT 

STAMP (NOTXAND1)+Q0,X,3* 

Q:NEXT:NEXT 

GETKS: IFK$=""THEN1210 


LO8¢ 
1116 
1128 
113¢ 
1146 
115¢ 


1160 
1176 


118¢ 
1280 


1219 
1220 
1236 
DF 1248 
KH 1250 
BEFORE TYPING... 


Before typing in programs, please 
refer to ‘How to Type In 


COMPUTE!'s Gazette Programs,” 
elsewhere in this issue. 


Article on page 29. 


FH 1@ REM COPYRIGHT 1989 COMPU 
TE! PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 
X=RND(-TI) =:SCNCLR:COLOR4 
»L:FAST:GOSUB1@50:POKES3 
280,6:POKE53281,6 
PRINT" (HOME }"TAB(13)"47} 
{RVS} MATH MAGIC {OFF])": 
PRINTTAB(12)"{2 DOWN}COP 
YRIGHT 1989" 
PRINTTAB(7) "COMPUTE! PUB 
LICATIONS, INC.":PRINTTA 
B(18)"ALL RIGHTS RESERVE 
pb" 
PRINTTAB(11)"{2 DOWN}1 - 
ADDITION":PRINTTAB(11)" 
2 - SUBTRACTION": PRINTTA 


FR 20 


HP 30 


AC 40 


HG 50 
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ME 


GJ 
HF 


SS 


Cc 
QB 
SM 
HA 
KQ 
SR 
SK 
QB 
MR 


QH 


BQ 


SG 


JJ 


QM 


KF 


6d 


70 
BO 


99 


106 


119 


126 
138 
1496 
15¢ 
166 
176 
189 
196 
200 
210 


220 


230 


240 


256 
260 


270 
289 


296 
300 
319 
320 
330 
3468 


350 
368 


3708 
380 
390 
490 
410 


B(ll)"3 - MULTIPLICATION 
";PRINTTAB(11)"4 = pIvIs 
ION": SLOW 
PRINTTAB(11)"{2 DOWN}SEL 
ECT TYPE (1-4)" 
GETKEY AS 
IFAS="1"THENPRS="A":S1S= 
"+" Ss ELSEIFAS="2"THENPRS= 
"S":SIS="-"SELSEIPAS="3" 
THENPRS="M":SIS="X":ELSE 
IFAS="4"THENPRS="D":SIS= 
"/"SELSE7@ 
PRINTTAB(11)"{2 DOWN}ENT 
ER LEVEL (1-13) 
{6 SPACES}{6 LEFT}";:INP 
UT LE 
IFLE<1LORLE>13THENPRINT" 
{3 UP}"s:GoTo9@ 
FAST: VOL@:GOSUB620:GosU 
B820:GOSUB270:VOL1L5:SLO 
W 
UU=VAL (TIS) :II=INT(UU/5 
) :POKE56244+1I,@ 
IFII>=1L1THENS3@ 
IFJOY (2) =3THENXP=XP+5: 1 
FXP>1LOSTHENXP=186: PLAY" 
OlsSF" . 
IFJOY (2) =7THENXP=XP-5:I 
FXP<40THENXP=45: PLAY"Ol 
SFE" 
MOVSPR1,XP, 200 
IFJOY (2) =128THENGOSUBL9 
@:GOSUB27@:POKE20460,56 
GOTO12@ 
POKE2049,57:CC=CC+1:MOV 
SPR3,XP,190:SPRITE3,1,1 
,@,0,0,1 
FORY=190TO8@STEP-1:MOVS 
PR3,XP,Y:NEXT 
IPXP>39ANDXP<66THENCH=1 
tELSEIFXP>67 ANDXP<194T 
HEN CH=2:ELSEIFXP>1@03AN 
DXP<16@THENCH=3:ELSEIFX 
P>1L61ANDXP<22S5THENCH=4 
IFSA=CHTHENTEMPO5@: PLAY 
"QO2#GO3#CFEeGFE#G":FL=1: 
SC=SC+10:SCS=STRS(SC):R 
R=RR+1:Cl=Cl1+1 
IFFL=1THENCHARL,3@,7,SC 
$,1:COLOR5,1:CHARI1,31,1 
9,"{8 SPACES}",1 
IFFL=@THENTEMPO25:PLAY" 
HOL#C#DE#CG":SPRITE3,@, 
6,0,0,0,1:POKE2040,56:G 
OTO120 
FL=@:SPRITE3,0,6,0,0,@, 
1 
RETURN 
IFC1>4ANDLE=13THENS3@ 
IFC1>=5THENTIS="90g0009" 
:Cl=@0:SOUND2,20000,59,@ 
,2000,100:LE=LE+1:GOSUB 
820 
AlL=INT (RND(1)*12)+1:A2= 
LE 


IFLE=13THENA2=INT (RND (1 
)*12) +1 
IFPRS="A"ORPRS="S"THENI 
FLES2THENA2=INT (RND (1) * 
8)+1 

L2=LE*19 
IFPRS="A"ORPRS="S"THENA 
2=INT (RND(1)*L2) +1 
IFPRS="S"ANDA1L<SA2THENT= 
AL:AL#=A2:A2=T 

AN#=Al1*A2 
IPPRS="D"THENT=Al1:A1=AN 
:AN=T 
IFPRS="A"THENAN=Al1+A2 
IFPRS="S"THENAN=A1-A2 
FORI=1T0O4 

T=INT (RND(1)*10)+1 
A(1I)=AN+T 
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DJ 


QH 


EX 


GP 


AR 
FG 


Cs 
CQ 


AM 


KD 
KK 
RF 


BS 
BE 


420 
430 
449 
450 
460 
47a 
490 
4990 


280 
510 


920 
530 
3940 
550 
560 
570 
580 
396 
600 
610 
620 


639 
64¢ 


650 


669 


676 


686 


690 


760 
710 


720 
730 


740 


750 
760 
778 


788 
7968 


IFA(1I) =ANTHEN4@@ 
AIS(I)=STRS(A(I)) 
NEXT 
P=INT(RND(1)*4)+1:AIS(P 
) =STRS (AN) :SA=P 
FORI=1T04 
LL#=LEN(AIS(I)) 
IFLL=2THENAIS(I)=" "+ar 
$(I) 
IFLL=4THENAIS (I) =RIGHTS 
(AI$(1I),3) 
NEXT 
PRINT" {HOME} {OFF} 
{2 DOWN} {2 RIGHT}";AIS( 
1);"{3 RIGHT}";AIS(2);" 
{3 RIGHT}";:AIS(3);" 
{3 RIGHT}";AI$(4); 
Al1S=STRS (Al) :A2S=STRS(A 
2) 
LA®LEN(ALS):IF LA=2 THE 
N AlS=A1S+" " 
PPS=A1S+SIS+A2S+" " 
SPRITE5,1,2,0,0,@,1 
SOUND1,1600,5,,,,;3 
MOVSPR5, 280, 200 
FORSL=1T0250:NEXT 
SPRITE5,9,2,0,0,@,1 
COLORS, l:CHAR 1,31,19,P 
PS,l 
RETURN 
SCNCLR 
COLOR @,2 
PRINT"{7}{RVS} 
{26 SPACES}{BLK} 
{14 SPACES}"; 
PRINT"{7}{RVS} {RED} 
{5 SPACES}{BLK} {YEL} 
(5 SPACES}{BLK} {GRN} 
{5 SPACES}{BLK} {BLU} 
(5 SPACES}({BLK} {7} 
{BLK}{14 SPACES}": 
PRINT"{7}{RVS} {RED} 
{5 SPACES}{BLK} {YEL} 
{5 SPACES}{BLK} [{GRN} 
{5 SPACES}{BLK} [(BLU} 
{5 SPACES}{BLK} {7} 
{BLK}{14 SPACES}"; 
PRINT"{7}(RVS} {RED} 
{5 SPACES}{BLK} {YEL} 
{5 SPACES}{BLK} {GRN} 
{5 SPACES}{BLK} {BLU} 
{5 SPACES}{BLK} {7} 
{BLK}{14 SPACES}"; 
PRINT"{7}{RVS} {OFF} 
{BLK} {5 U> ¢5 U} {5 U} 
{5 U}{7}>{(RVS} {BLK} 
{14 SPACES}"; 
PRINT"{7}(RVS} {OFF} 
{24 SPACES}{7}{RVS]} 
{BLK}{14 SPACES}"; 
FOR I=l1TO16 
PRINT"{7}{RVS} {8} 
{OFF}{22 SPACES}{8} 
{RVS} {7} {BLK} 
{14 SPACES}"; 
NEXT 
PRINT"{7}{RVS} {8} 
{24 SPACES}{7} {BLK} 
{14 SPACES}"; 
PRINT"{7}{RVS} 
{26 SPACES} {BLK} 
{14 SPACES}"; 
PRINT" {BLK}";:FORI=1984 
TO2023:POKEIL,16@:NEXT 
PRINT" {RED}";:CHAR1,27, 
@," MATH MAGIC ",1 
PRINT" {RED}"3;:CHARL,29, 
5," SCORE ",1 
CHAR1,29,10," LEVEL ",1 
SPRCOLOR1,9:SPRITE1,1,1 
,0,0,0,1:SPRITE 4,1,6,0 
,0,0,1:MOVSPR 4,255,195 
*<MOVSPR 1,100,200 


PR 


FO 


EK 


BX 
JP 


MC 
HE 


SM 


DH 


JM 


CM 


800 XP=160:SCS="0":TIS="aQgG 


818 


820 


830 
840 


85 
860 
870 
880 


) 890 


900 
918 


920 


930 
949 
95¢ 


960 
970 
980 


996 


1000 
1610 
1¢2¢@ 


1830 
1040 
105¢ 


1060 


1970 
1680 


1099 


1160 


1118 


1128 


000":SCc=a 
TMS="{RVS} {GRN} 
{4 SPACES}{YEL} 
{4 SPACES}{RED} 
{4 SPACES} {OFF}":RETURN 
COLORS, 1: LES=STRS(LE):c 
HAR1L,30,7,SCS,1:CHAR1,3 
@,13,LE$,1:CHAR1,28,23, 
TMS:COLORS,1:RETURN 
IFCC=@THENCC=1 
POKE53281,6:QQ=INT((RR/ 
CC) *188) :QQOS=STRS (QQ) 
SCNCLR 
POKE53269,@ 
SLOW 
PRINT"{7}":CHAR1,14,5," 
GAME OVER ",1 
IFC1L=5ANDLE=13THENS91O 
TEMPO4@: PLAY"O3HGAGRBO4 
RCO3C":GOTO98N 
SPRITE4,1,6,f @,8,1:MOV 
SPR4,168,103 
CHAR1L,1,3,"CONGRATULATI 
ONS, YOU'VE GRADUATED!! 
pte 
CHAR1,5,4," YOU HAVE EA 
RNED THE TITLE OF ",1 
CHAR1,15,5," MATH WIZ! 
{SPACE}",1 
TEMPO30:PLAY"T601Q0GAQBO 
Z2QDOCCOEQDODQGO#FOGQDO1 
QBQGAQBO20CQDQEQDOCO1OB 
QAQBQGQ#4FQGQAODOSFQA020 
COLOBQAQBQGQAQBO2QDO0COC 
QEQDQDQOGO#FOGQDOLOBOQGAQ 
BQEO2QDQCO1QBQA" 
PLAY "QGQDQGQ#FQOG" 
COLORS,1 
CHAR1,17,12,"SCORE",1:C 
HAR1,17,13,8CS$ 
CHAR 1,15,15,"% CORRECT 
" 1:CHAR 1,17,16,0Q5 
CHAR1,1@,18," PLAY AGA 
IN (Y/N)? ",1 
GETAS: IFAS=""THEN1@1@ 
IFAS="Y"THENSCNCLR: POK 
E53269,0:POKE2040,56:F 
AST:RUN 
IFAS="N"THENEND 
GOTO1610 
FORX=3584T03904:READPS 
*P=DEC (PS) :POKEX,P:PT= 
PT+P:NEXT 
IFPT<>17937THENSLOW: PR 
INT" {DOWN}DATA STATEME 
NT ERROR.":STOP 
RETURN 
DATAGS,00,00,99,00,06, 
00,19,00,00,54,99,90,D 
C,00,09,DC,06,3F,DF,F@ 
,»FE,DF,FC,F0,DC,3C,FO, 
pc, 3C,30,DC,30#,3C,54,F 


DATAGD, 11,C,03,EF, 03, 
00,39,00,00,FC,00,00,F 
C,00,00,FC,00,89,FC,@0 
,00,30,00,00, 30,080,080 
DATAGG,00,08,00,00,90, 
00,30,90,00,30,00,00,F 
C,00,90,FC,00,3F,FF,FO 
,FF,FF,FC,F9,FC,3C,EFC, 
FC,FC,@F,FF,C@,09,FC 
DATAGG,00,30,00,00,39, 
06,00,30,90,00,FC,00,0 
0,FC,80,00,FC,00,00,FC 
,90,00,30,00,00,30,00, 
g 
DATAGG,00,00,90,00,00, 
G0,10,00,90,54,00,00,1 
G,00,00,10,00,00,10,80 
,00,10,00,00,10,00,00, 
10,00,00,10,00,00,54,@ 
@,@1,11 


KB 


BB 


SJ 


HA 


HM 


1130 


1146 


1158 


1168 


1176 


DATAGG,09,00,00,08,00, 
60,04,00,00,00,99,00,0 
G,00,00,09,00,00,00,08 
,90,00,00,86,G0 
DATA2A,8@,00,22,A9,00, 
02,A8,00,02,A8,08,03,F 
C,00,03,FC,00,0B,FE,G6F 
,02,F8,3F,@GA,AA, 28, 2A, 
AA, A8,AA,AA 
DATAAG,A8,AA,80,2B,A8, 
90,2B,A8,@0,02,A8,00,9 
2,A8,00,0A,AA,00,0A,AA 
,08,2A,AA,89,2A,AA,80, 
GA,AA,90,B9 
DATAGG,G0,29,90,AG,00, 
20,00,00,00,98,00,90,2 
A,08,00,AA,80,00,2A,00 
,00,08,00,02,00,90,2A, 
02,8A,28 
DATAG2,A8,08,A0,00,00, 
28,08,20,00,28,02,00,2 
A,@A,80,08,02,08,90,0G 
,2A,00,20,08,02,00,00, 
00,09,00,90,81,99 


BEFORE TYPING... 
| Before typing in programs, please 


| refer to “How to Type In 
| COMPUTE!'s Gazette Programs,” 





elsewhere in this issue. 


Monster Bar-B-Q 


Article on page 28. 
FH 1@ REM COPYRIGHT 1989 COMPU 


FH 


TE! 


20 


30 
4a 


5a 
60 
70 
88 


90 


100 


118 
126 
138 
14¢ 
15d 
166 


179 
18¢ 
198 
280 
210 
220 
230 
249 
250 
268 
278 
280 
290 
360 


PUBLICATIONS, INC. - 
ALL RIGHTS RESERVED 


SCNCLR:COLORG,1:COLOR4, 1 
: SPRCOLOR2,12:VOL3:X=RND 


(-TI/191) 


PLS=">#eeeh##":HS=-1500 
FORI=2TO8:SPRITEI,@,,1,@ 


,9,1:MOVSPRI,@#0:NEXT:SP 


RITEL,G@,7,0,0,0,98 
DIMMP(14,2),J35(9,3,2),GR 


(7) ,MC (7) »MNS (7) 


GOSUB828:GOSUB1290:GOSUB 
1026 
DEFFNR(X) =INT (RND(1) *X+1 
) 

MC (1) =4:MC (2) =9:MC(3)=14 
:MC (4) =3:MC(5)=6:MC (6) =9 


sMC(7) 211 


JX=5:JY=3:SC=@:MF=0:MM=9 


2:221:C=0:D=8:Q0=0:T=0 
GRAPHIC3:MOVSPR1,JS(JxX, 
J¥,@),J3JS(JX,J¥,1):SPRIT 
El,l1:TIS="9000g8" 


GOSUB 400 

IF MM+MP>=10 THEN 650 
GOSUB 586 

GOSUB 429 

GOTO110 


JS=JOY (2) :ONJSGOTO19@,2 
60,210,220,230,2408,256, 
260 
IFJS>127THENGOSUB3I39¢ 
GOTO320 

JY¥=JY-Z:GOTO276 
JX=JIX+Z:JY=JY-Z:GOTO27@ 
JX=JIX+Z:GOTO270 
JX=JIX+Z: JY=JY+Z:GOTO27@ 
JY=JY¥+2Z2:GOTO27@ 
JX=IX-2: JY=J¥+Z:GOTO27@ 
JX=JIX-Z2:GOTO027¢0 
JX=JX-2: 0Y=JY-2 
IFJIX<1LTHENJX=9 
IFJIX>9THENJX#1 
IFJY<1LTHENJY=1 
IFJY>3THENJY=3 


QM 


KE 


MS 


SQ 


3198 
328 
33¢ 
340 
350 
360 
370 
389 
3908 
400 


410 
420 
430 
44@ 
450 
460 


470 


6480 


49 


500 
5190 
920 


536 
540 
558 
560 
5708 
580 
990 
600 


619 


620 


6390 
640 
650 
660 


670 


680 


690 


760 


716 


MOVSPR1,JS(JX,JY,@) ,JS( 
IX, JY,1) 

RETURN 
SPRITE1,@:SOUND1, 30000, 
306,1,5000,500,3:SPRITEL 


r 
IFMP(JS(JX,JY,2),2)=0TH 
ENMF=MF+1:GOT0390 
C=MP(JS(dJX,JY,2),2):5C= 
sc+l 
SPRITEC,,8,.,,08:SOUND2, 
60000,10,0,30000,3163,1 
FORI=LTO6:MOVSPRC,+0,+4 
*NEXT 

MP(GR(C-1) ,2)=@8:GR(C-1) 
=9:D=C 

RETURN 
EY=FNR(15)-l:IFEYTHENCH 
AR3,6,1,"WW":ELSECHARL, 
6,1, "==" aE 

RETURN 

M=FNR(7) :IPM+l=DTHr 420 
IFFNR(10) >OTHENS560 
GOSUB16@ 

IFMP (GR(M) ,2) THEN5S4@ 
G=FNR(14):IFMP(G,2) THEN 
460 

GOSUB1L60 
GR(M)=G:MOVSPRM+1,MP(G, 
0) ,MP(G,1)+24 
R=FNR(7):SPRSAVMNS(R),M 
+1:SPRITEM+1,1,MC(R) rie 
el 

GOSUBL64 

MP(G,2)=M+l 

SOUND2, 3000,12,9,500,290 
0,@:FORI=1LTO12:MOVSPRM+ 
1,+@,-2:NEXT 

GOTO560 
SOUND2,3000,12,1,5098,20 
@,@:FORI=LTO12:MOVSPRM+ 
1,+0,+2:NEXT 

MP (GR(M),2)=@0:GR(M)=0:M 
M=MM+1 

GOSUB16@ 

RETURN 

IETI<TTHEN6 30 
T=T+3900:0=0+2:IFQ>1OQTH 
EN640 
VOL@:SOUNDL,175,250,2,1 
6¢,3,3 
COLOR2,2:FORJ=1T0O2:FORI 
=1T05:VOLI*2:DRAW2,83,6 
TO72,56:COLORG,4:DRAW1, 
83,6TO072,56:COLOR@,1:NE 
XT:SLEEP1L:NEXT:VOL3 
IFQO<LITHENSOUND3 37000, 
3750,2,24000,4000,2,408 
g 

RETURN 
FORK=1T02:GOSUB600:NEXT 
FORI=1TO8:SPRITEI,@:NEX 
T:GRAPHIC@ 
WINDOW3,14,38,18,1L:WIND 
ow5,14,37,19,1l 

PRINT" {GRN}MONSTERS 

{2 SPACES}){6}";:PRINT U 
SING P1$;SC;:PRINT" 
(GRN} * 100 ={RED}";Sc* 
190 

PRINT" {GRN]IMISFIRES 

{2 SPACES) {6}";:PRINT U 
SING P1S;MP;:PRINT" 
{(GRN} *{2 SPACES}5@ = 
{RED} ";MF*-5@ 
PRINT"{GRN}SURVIVORS 
{6}";:PRINT USING P1LS;M 
M::PRINT"{GRN} * 15@ = 
{SPACE}{RED}";MM*-15@ 
PRINT"{5}{25 SPACES} 

{6 y}>" 
SC=SC*1@G-MF*50-MM*150: 
PRINT" {CYN}TOTAL SCORE: 


GR 


QH 


BD 


RA 


FJ 


MX 


FJ 


PG 


BA 


726 
738 


740 
750 
760 
770 


780 


790 


800 


B1G 
820 


830 


B40 


850 


B6G@ 


B7G 


B80 


8990 


980 


918 


920 


{ll SPACES}";:PRINT USI 
NG P1S;SC 
IFSC>HSTHENHS=SC 
PRINT"{CYN}HIGH SCORE: 
{12 SPACES}";:PRINT USI 
NG PLS:HS; 
PRINT"{2 HOME}"; 
KSa" a 
DO:GETKS 
CHAR, 14,20,"{1}PLAY AGA 
IN on 
IFKS="Y¥"THENWINDOWS,14, 
37,20,1:PRINT"{2 CLR}": 
GOSUB1326:SOUND3,8,9:GO 
TO7¢G 
IFKS="N"THEN PRINT" 
{CLR}":SOUND 3,0,@:EXIT 
CHAR, 14,20,"{YEL}PLAY A 
GAIN ?" 
LOOP:END 
SOUND3,37000,950,2,2400 
@,4000,2,4076 
CHAR, 4,0,"{5}{*}{8PE 
{5}{*F{8}PE(RVS}{5}> {8} 
{5}(2 SPACES}{8} 
{2 SPACES}{5} {8} {5} 
{2 SPACES}{8}{2 SPACES} 
{5}{2 SPACES}{8} 
{2 SPACES}{5} {8} {5} 
{2 SPACES}{8}{2 SPACES} 
{5} {8} {OFF} {5}>{*}{8} 
£{5){*}{8}E£" 
CHAR,8,1,"¢5}¢*}{8}E 
{RVS}{5}{2 SPACES}{8} 
{2 SPACES}{OFF}{5}4{*} 
{8PEC5}{*}(RVS} {8} 
{OFF}E{5}>{*}P(RVS} {8} 
{SPACE} {OFFJ)£{5}¢*} {8} 
€{RvVS}{5}{2 SPACES}{8} 
{2 SPACES} {OFF}{5}{*} 
{B}e" 
CHAR, 10,2,"45}¢*}{RVS} 
{SPACE}{8} {OFF}E 
{3 SPACES} {5>¢*}{8P£ 
{2 SPACES} {5}¢*}{8}E£ 
{3 SPACES}{5}{¢*}{RVS} 
{8} {OFF}&" 
CHAR, 11,3, "{5})¢*}{8}E 
{14 SPACES}{5}¢*}{8}&" 
CHAR,13,21,"{RVS}{5}E 
{8}¢*}{OFF}{1@ SPACES} 
{RVS}{5}E{8}> <*>" 
CHAR,12,22,"{RVS}{5}E£ 
{SPACE}{8}> {*} {OFF} 
{8 SPACES}{RVS}{5}£ 
{8p {*}" 
CHAR, 10,23,"{RVS}{5}E 
{8}4*}{5}{2 SPACES} {8} 
{2 SPACES}{5}£{8}>{*} 
{SPECBPC*PL5SPLLEP L*} 
{SPECS} {*}> {5} 
{2 SPACES}{8}{2 SPACES} 
{5}E{8}> <*>" 
CHAR,6,24,"{RVS}{5}F£ 
{8>{*}{5PE{(8}¢*} {5} 
{8} {5}{2 SPACES}{8} 
(2 SPACES}{5}> {8} {5} 
€8> {5> {8} {5} {8)> {5} 
{2 SPACES}{8}{2 SPACES} 
{5} {8} ECSd¢*PC5PE 
{8}{¢*}{HOME}" 
CHAR,3,5,"{BLU] {RVS] 
{*}€£ {RIGHT}E 
{2 SPACES}{*}{RIGHT } 
{2 SPACES}{*} {RIGHT}JE 
{2 SPACES}{*}{RIGHT} 
{4 SPACES}{RIGHT} {3 @} 
{RIGHT} {F} ¢{*}" 
CHAR, 3,6,"¢7}{4 SPACES} 
{RIGHT} {L}¢{J} {RIGHT} 
{4 SPACES}{RIGHT} {OFF} 
{*}{RVS}{2 SPACES}{*} 
{2 RIGHT}{2 SPACES} 
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MP 930 


GB 


GA 


FP 


BF 


RB 


MD 


BM 


SJ 


{2 RIGHT}(3 SPACES} 

{2 RIGHT} {Vv} {oOFF}e" 
CHAR,3,7,"{CYN} {RVS} 
{OFF}{*}£{RVS} {RIGHT} 
{OFF}{*}{RVS}{2 SPACES} 
{OFF }£{RIGHT}{RVS} 
{OFF}{*}(RVS}{2 SPACES} 
{RIGHT} (OFF }{*}({RvVS} 

{2 SPACES} {OFF}£ 

{2 RIGHT}{RVS} 

{2 SPACES) {2 RIGHT} 

€3 T}{RIGHT} {OFF} {*} 
{RVS}{2 SPACES}" 


948 CHAR,3,9,"{3}{RVS} {D} 


{SPACE}{*}{2 RIGHT}£ 
{*}{2 RIGHT}{3 SPACES} 
{*}{6 RIGHT} {D}> {*} 
{6 RIGHT}£{2 SPACES} 
{*>" 


950 CHAR,3,10,"{1} {Cc} 


{OFF }£{RIGHT}{RVS}E 
{2 SPACES} {*}{RIGHT} 
{L}{J} {RIGHT} {OFF} 
{4 O}{RIGHT}{RVS} {Cc} 
{OFF}E{RIGHT} {4 0} 
{RIGHT} {RVS} {D}{F} " 


960 CHAR,3,11,"{RED} {D} 


{*}(RIGHT}] {C}{V} 7 
{RIGHT} {3 SPACES} {OFF} 
£{RIGHT}{4 U}{RIGHT} 


TRVS} {D} {*}{RIGHT} 


{OFF}{4 U}{RIGHT}{RVS} 
{SPACE}{c} ¢p}" 


978 CHAR,3,12,"{2} {C} 


{OFF}E{RIGHT}{RVS} {D} 
{F} {RIGHT} {L}{OFF}{*} 
{RVS} {6 RIGHT} {C} 
{OFF}£{6 RIGHT}{*} 
{RVS} {D} " 


980 CHAR,12,15,"{OFF}{7}COP 


YRIGHT 1989" 


990 CHAR,6,16,"{OFF}{7}COMP 


1000 
1910 
1¢20 
10390 
1949 


1650 
1068 


1070 
108¢ 


169@ 


1100 
111¢ 
1120 


1138 
11498 


1150 


1168 


117¢ 


UTE! PUBLICATIONS, INC. 
| 


CHAR,10,17,"{OFF}) {7}AL 
L RIGHTS RESERVED" 
RETURN 

FAST :GRAPHIC3, 1 
COLOR1L,12:COLOR2,13:¢0 
LOR3,16:WIDTH1 
CIRCLE2,6,6,6,6:PAINT2 
16,6 

BOX2,9,6,12,24,,1 
CIRCLE3,1@,6,6,6:PAINT 
3,10,6 
BOX3,4,6,16,24,,1 
DRAW2,6,12T06,6T08,6TO 
8,9TO7,9TO7,10T08,12 
DRAW2,10,6TO1¢0,12:DRAW 
2,12,12T012,6T014,6TOl 
4,9TO13,9 
SSHAPETS,@,@,16,24 
BOXG,9,6,16,24,,1 
FORY=1@G4TO1L68STEP64:FO 
RX=8TOL3G6STEP32:GSHAPE 
TS,X,Y:NEXTX,Y 
FORX=24TOL2@STEP32:GSH 
APETS,X,136:NEXT 
FORKX=9T039:FORY=68TO7:C 
HARL,X,Y¥," ",1l:NEXTY,X 
DRAWG,6,0TO8B, 36TO20, 38 
TO20,24T024,16T024,8TO 
22,8T024,6T025,8T028,7 
TO31,8T032,4T034,8TO32 
,8T032,16T034, 24T030,3 


8 
DRAW@,30,38T044,48T04B 
,32T048, 24T048, 327056, 
24T048,33T043,41T060,3 
8T052,39T056,47T052, 39 
TO28 ,43 
DRAW@,28,43T027,51T024 
,51T026,44T012,46T09,5 
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PQ 


PX 


SD 


BR 


JJ 


PH 


FJ 


KQ 


BS 
RK 
GB 


BC 


CG 
XX 


PB 
EB 
PS 
RB 
FR 


HR 
CR 


MX 


GE 
Qx 


BA 
SB 


1189 


1199 


1280 


1210 


1220 


1230 


1240 


1250 
1260 


1270 


1284 
1290 
1360 


13180 


1320 
1336 


1340 
1350 
1368 
1376 
1380 


1390 
1400 


1416 


1426 
14390 
1440 
1450 


8TO10,64:PAINTG,G@,@:DR 
Rt INC ear: 
F 
COLOR3,8:CHAR3,6,1,"WW 
";DRAW2,28,16T026,18T0O 
26,20T028,19:COLOR3,12 
:WIDTH2:DRAW3, 24, 38TO2 
5,48:DRAW3,28,38T029,4 
@:DRAW1,11,64T012,80 
DRAWG,12,64T028 ,62T032 
,63T036,61T040,60T056, 
62T060,64T088,56T0124, 
56T0132,60T0152,64:PAI 
NTO,89,57:PAINTG,56,63 
:PAINT@,29,63:CHARIL, 37 
,8,"{T}{Y}{T}" 
CHAR1,24,1,"£ {*}":CH 
AR1L,24,2,"€J} {L}":CHA 
R1,28,2,"{L}" 
CHAR1,23,3,"£ 
{5 SPACES}{*}":CHAR1,2 
3,4,"{3I}{5 SPACES}{L}" 
:CHAR1,22,5,"£ 
{7 SPACES} {*}" 
CHAR1,23,6,"{7 SPACES} 
";CHAR1,22,6,"-",1:CHA 
R1,30,6,"-",1 
COLOR3,8:CHAR3,25,2,"+ 
",1:CHAR3,24,6,"+",1:C 
HAR3,26,6,"+",1:CHAR3, 
28,4,"+",1 
WIDTH1L:DRAWG,160,48TO1 
52,48T0160,49:DRAWG, 16 
@,26T0144,25T0136,16TO 
144,25T0144,16T0144,25 
TO1L60,30:PAINT@,159,27 
RESTORE127@:DO0:READCS: 
IFCS="*"THENEXIT 
READX, Y:CHAR1,X,Y,CS,1 
:LOOP 
DATA"{B}",19,3,"{B}{D} 
{B>",12,2,"{B}",15,4," 
{B}",15,5,"{B}",13,6," 
{B}",35,9,"{B} {V}¢F} 
{SPACE} {V}",33,1,"{V} 
{B}",32,2,"{B}{C}",37, 
2,"{BP{V}",33,3,"{C} 
{D}{2 V}{2 SPACES} {B}" 
,32,4,"¢C} {B}{D}",34, 
5,"{V}{B}{D}",35,6," 
{2 V}{C}",36,7,* 
SLOW: RETURN 
RESTORE145@ 
FORI=3584T04095:READJ: 
X1=X1+3:POKEI,J:NEXT:I1 
FX1<¢>56999THENPRINT" 
{CLR}ERROR IN SPRITE D 
ATA. ":STOP 
FORI=1T07:SPRSAVI+1,MN 
$(I):NEXT 
A=1:Y=132 
DOWHILEY<197:1FY=164TH 
ENX=78:ELSEX=46 
DOWHILEX<30@3:MP(A,0@) =X 
tMP(A,1)"Y:MP(A,2)=@ 
A=A+1:X=X+64:LOOP: Y=Y+ 
32:LOOP 
Y=132:FORJ=1T0O3:X=46:F 
ORI=1TO9 
JS(1,J,0)=X:J5(1,J,1)= 
Y¥:JS(1,d0,2) =@ 
M=X¥4+32:NEXT: Y=Y¥+32:NEX 
T 
T=1:J#1:X=1:Y=-1:D0 
IFYTHENJS (I,J,2) =X: X#=X 
+] 
I=I+l:IFI>9THENI=lL: J=J 
+] 
Y=NOT (Y) sLOOPUNTILX>14 
FORI=1T0O7:GR(I)=@:NEXT 
: RETURN 
REM SPRITE DATA 
DATA 


reoeoeveerrerneeet4ies 


KB 


CM 


AG 


KB 


BA 


KR 


KJ 


HG 


DH 


KX 


JR 


CM 


JX 


XX 


DM 


1460 


1470 


1489 


14990 


1566 


1510 


1520 


1530 


1540 


1556 


1560 


1578 


1586 


1596 


16900 


1255,,1,153,128,3,24,1 
92,6,,96,6,,96,31,153 

DATA 248,6,,96,6,,96,3 
,24,192,1,153,128,,255 
pertaereeeeecerrenee” 

DATA ,255,,15,255,246, 
63,126,252,61,86,188,5 
3,85,172,53,85,172,191 
,86,254,187,219,238,18 
6,154,174,152,24,42,15 


4,154 

DATA 176,149,89,196,16 
5,154,106,166,179,174G, 
36,85,40,232,65,43,248 
1247,248,65,47,250,170 
,175,62,170,188,255,17 


G,255,8 

DATA 2,171,192,16,176, 
240,42,170,188,42,170, 
188,171,170,255,176,23 
5,255,168,44,63,168,18 
9,63,170,171,255,234,1 
31,255,42,171 

DATA 252,42,151,252,42 
,65,252,40,65,60,56,13 
6,60,8,,48,10,65,240,1 
G,151,240,16,175,240,4 
2,191,252,170,175,175, 


BATA 15,255,246,62,255 
,252,58,239,188,18,171 
,172,10,170,172,18,170 
,172,15,239,232,4,196, 
164,15,239,232,15,171, 
232,109,238 

DATA 172,10,170,160,16 
,170,160,,2,163,42,168 
/175,42,170,163,18,179 
/176,58,170,252,250,17 
1,255,254,175,255,255, 
255,255,0 

DATA 10,170,,42,176,12 
8,168,42,32,184,8, 32,1 
72,73,32,184,8,32,170, 
17G,168,170,174,168,23 
8,175,160, 35,170,160,4 
g,68 

DATA 64,56,136,128,10, 
34,32,14,17,16,2,170,1 
68,3,170,168,,44,,,171 
007440 ¢44,171,56,176,1 
76,1708,9 

DATA ,44,,,44,,,239,,3 
,174,192,14,174,176,18 
,170,160,15,170,249,63 
,235,252,41,255,104,41 
,20,104,45,85 

DATA 120,239,235,251,1 
75,170,250,238,170,187 
,170,255,170,235,,235, 
168,,42,46,170,184,234 
,170,171,178,170,17@,1 
76,170,176,@ 

DATA ,215,192,3,95,80, 
4,255,240,13,53,92,19, 
213,84,55,95,244,61,12 
G,128,21,202,140,31,,2 
44,60,63,92,5,245 

DATA 112,29,95,244,31, 
255,92,7,213,204,13,25 
5,288,3,127,112,3,212, 
LW peed alc peje av 
G8,85,223,93,9 

DATA 64,255,1,147,,198 
,22,,148,58,130,172,10 
,170,160,,170,,143,40, 
243,164, 239,31,172,189 
, 63,171,239, 255, 234,17 
4 

DATA 191,42,174,188,58 
,174,188,10,,176,8,40, 
48,8,85,48,10,171,240, 
8,131,48,10,,240,42,13 
1,252,170,175,175,8 


BEFORE TYPING... 
_ Before typing in programs, please 


_ refer to “How to Type In 
COMPUTE!'s Gazette Programs,” 





elsewhere in this issue. 


1581 Directory Sorter 


Article on page 48. 
BH 16 REM COPYRIGHT 1989 COMPU 


BR 


ED 


KR 


GM 


FM 


PP 
CQ 
KP 


CA 


SR 


SK 


HR 
ce 
AE 


DR 


DR 


XG 


PB 


DA 


EX 


cQ 


AR 


RG 


20 


30 


40 


50 
60 


768 
Ba 
90 
100 


11¢ 


120 


136 
146 
15¢ 


169 


1790 


189 


19d 


260 


210 


228 


23G 


246 


TE! 


PUBLICATIONS, INC. - 
- ALL RIGHTS RESERVED 
DIM 2$(297) ,S8G$(297) :V=@ 
*B=1:MB=4:ME=#16:QS5=CHRS ( 
34) 
POKE53280,@:POKE53281,4: 
PRINT"{GRN}";:0S="":FORA 
=1T030:0S=0S+CHRS (8) :NEX 
TA 


WD=20: 1FFRE(@)=FRE (1) THE 


NOM=3:GOTO6@ 
IF (PEEK (215) AND128) THENO 
M=1:WD=40:ELSEOM®2 
PRINT" {CLR} {N}{YEL} 
{4 DOWN} "TAB(WD-2) "1581" 
: PRINTTAB (WD-8) "DIRECTOR 
Y SORTER" 
PRINT"{7}{4 DOWN}"TAB (WD 
-7) "COPYRIGHT 1989" 
PRINTTAB (WD-13) "COMPUTE! 
PUBLICATIONS, INC." 
PRINTTAB (WD-9) "ALL RIGHT 
S RESERVED" 
PRINT" {HOME}{17 DOWN} 
{YEL} "TAB (WD-12) "DRIVE 
{SPACE}NUMBER (@=QUIT) 
{2 SPACES}8{2 SPACES} 
{5 LEFT}"; 
INPUTDV$:DV=VAL (DVS$) : IF 
DV=STHENEND 
IFDV<SORDV>36THENPRINTT 
AB (WD-11)"(DOWN) {WHT } 
{RVS}{2 SPACES) INVALID 
{SPACE}DRIVE NO. 
(2 SPACES}":GOTO16G 
IFOM=3THENPOKE786,DV 
IFOM<3THENPOKE6,DV 
POKE144,@:SYS65457:TS=S 
T:SYS65454:TS=TSORST 
IFTSTHENPRINTTAB (WD-11) 
"{DOWN} (WHT} {RVS} 
{2 SPACES}DEVICE NOT PR 
ESENT ":GOTO1@6@ 
OPEN15,DV,15,"UI": INPUT 
#15,AS,B$,C$,D$:CLOSE15 
IFRIGHTS(BS,2)<>"81"THE 
NPRINTTAB (WD-11) "{DOWN} 
{WHT} {RVS}DEVICE"DV" 
{LEFT} ISN'T AN 81":GOT 
0100 
PRINT" {CLR} {5 DOWN} "TAB 
(WD-15) "--------------- 
PRINT" {DOWN} "TAB (WD-11) 
"PRESS {WHT}{RVS} A 
{OFF}{YEL} FOR A-Z SORT 
Ll 


PRINT" {DOWN} "TAB (WD~11) 

"PRESS {WHT}{RVS} 2 
(OFF}{YEL} FOR Z-A SORT 
iL 


PRINT" {DOWN} "TAB (WD-13) 
"PRESS {WHT}{RVS} M 
{OFF}{YEL} FOR MANUAL S 
ORT." 


SSI eee eS SS 


2 a oe oe ee oe 


GETSOS: IFSOS<>"A"ANDSOS 


MX 


258 


| 266 


27@ 


280 


290 


386 


318 


328 
336 


349 


350 


369 


370 


386 


398 
408 


4190 
4290 
4390 
449 


456 


460 


470 


486 


490 


580 


518 


920 
536 
54¢ 
556 


960 
976 


<>"M"ANDSOS<>"Z"THEN24@ 
IFOM=2THENPRINT" 

{3 DOWN} {WHT} "TAB (WD-14 
)"SCREEN WILL BLANK DUR 
ING LOAD{YEL}":SLEEP1:F 
AST 

PRINT" (CLR}{18 DOWN}SCA 
NNING"; 
OPEN15,DV,15,"I190":OPEN5 
,OV,5,"8":S=3 
PRINT#15,"U1L:";5;0;40;8S 
:GET#5,T$,S$:S=ASC(SS$+C 
HRS (6) ) 
AS="":L=2:FORE=0T029:GE 
T#5,BS:AS=AS+CHRS (ASC(B 
S+CHRS(@))) :NEXTE:GOSUB 
568 
GET#5,BS,BS$:FORRA=1TO6: 
ASe"" 
FORE=0T029:GET#5,BS:AS$= 
AS+CHRS (ASC (BS+CHRS (@) ) 
) !NEXTE:GOSUB56@ 
GET#5,B$,BS:NEXTRA:AS=" 
" 


FORE=0T029:GET#5,BS:AS= 
AS+CHRS (ASC (BS+CHRS (@) ) 
) :NEXTE:GOSUB56@ 

IFASC (TS+CHRS (8) ) =40THE 
N2890 

PRINT: PRINT#15,"U1:";5; 
@:40;0:GET4#5,A$,AS,AS,A 
S:HS=""sFPORZ=1TO1L6:GET# 
5,AS 
HS=HS+AS:NEXT:CLOSES:CL 
OSE15: IFOM=2THENSLOW 
GOSUB660: PRINT" {CLR} 
{YEL}SAVE THIS NEW DIRE 
CTORY? "; 

GETAS: IFAS<>"Y"ANDAS<>" 
N"THEN38@ 

PRINTAS: IFAS="N"THEN52@ 
IFOM=2THENPRINT" 

{3 DOWN} {WHT} "TAB (WD-14 
)"SCREEN WILL BLANK DUR 
ING SAVE{YEL}":SLEEP1:F 
AST 

CLOSE 15:0PEN15,DV,15," 
IG":OPENS,DV,5,"#":S=3 
IF8* (V/8) >INT (V/8) *BTHE 
NV=INT ((V/8)+1)*8 
HS=""=FPORB=3TOV/8+2:AKS 
el! " 
PRINT#15,"B-P:";5;@:IFB 
€V/8+2THENPRINT#5,CHRS ( 
40) +CHRS (B+1) ; 
IFB=V/8+2THENPRINT#5,CH 
RS (0) +CHRS (255) ; 
FORZ=1T030:PRINT#5,CHRS 
(ASC (MIDS (Z$(1+(B-3)*8) 
,Z,1)+CHRS(G)));:NEXTZ 
FORG=2T0O8: PRINT#5,CHRS ( 
@)+CHRS (0) ;:FORZ=1T039 
PRINT#5,CHRS (ASC (MIDS (2 
$ (G+ (B-3) *8) ,Z,1)+CHRS ( 
@)))3;:NEXTZ,G 
PRINT#15,"U2:"35;0;40;B 
:NEXTB 

CLOSE5:CLOSE15: IFOM=2TH 
ENSLOW 


PRINT" {CLR}{2 DOWN} 
{YEL}COLLECTING DISK... 
{DOWN}":OPEN15,DV,15,"V 
@:":CLOSELS 

PRINT" (DOWN}DO YOU WANT 
TO TRY ANOTHER? "; 
GETAS: IFAS<>"Y"ANDAS<>" 
N"THEN53@ 

PRINTAS: IFAS="Y"THENCLR 
:GOTO26 

END 

IFAS=OSTHENRETURN 
IFSOS="M"ANDV<>OTHEN630 


GB 


BG 


JM 
DB 
QQ 
DQ 


BK 


PC 


FR 


JR 


MR 
AM 


DJ 


5989 
590 
600 


610 
620 


638 


640 
650 
660 
678 
6890 
696 
780 
716 
728 
738 


748 
758 


760 
778 
780 
790 


8008 
818 


820 
830 
840 
850 


B60 


B7G 


B8a 


89¢ 
9990 
919 
920 


9390 


9460 


950 


960 


976 
980 


990 


IFV<>OTHENFORB=LTOV 
IFSOS="Z"THEN620 
IFV<>OTHENIFMIDS (AS,4,1 
6) >MIDS(ZS$(B) ,4,16) THEN 
NEXTB 
GOTO63¢ 
IFV<>@THENIFMIDS (AS,4,1 
6) <MINDS(Z$(B) ,4,16) THEN 
NEXTB 
PRINT".";:FORC=V+1TOBST 
EP-1:25(C)=Z$(C-1) :NEXT 
C:Z5(B)=AS:IFV<296THENV 
=V+l 
IFV<296ANDSOS="M"THENB= 
B+l 
RETURN 
K=1:cCS="{WHT}" 
JJ=96:I1FOM>1THENJJ=48 
IFV-K<JITHENJJ=V-K+1 
IFG=0THENO=@ 
PRINT" {CLR} {YEL}"3 sA=1 
IFA<25THENCL=0:GOTO760 
IFA>72ANDA<97THENCL=686: 
GOTO75¢ 
IFA>48ANDA¢73THENCL=486: 
GOTO75@ 
IFA>24ANDA<49THENCL=26 
IFA=250RA=490RA=73THENP 
RINT" {HOME}"; 
MB=4:ME=16:IFAS<>"GB"TH 
EN81@ 
IF (A+K-1) >=GSAND (A+K-1) 
<=GFTHEN79@ 
GOTO819 
PRINTTAB(CL)CCS"{RVS}"Q 
SMIDS (ZS (A+K-1) ,MB,ME)Q 
S"{OFF} {YEL}" 
GOTO83@ 
PRINTTAB(CL)QSMIDS(2S(A 
+K-1),MB,ME)QS"{YEL}" 
IFAS="GB"THENS3@ 
IFA¢=(JJ-1) THENA=A+1:GO 
TO710 

IFAS="GB"THEN1414 
IFG<>2THENPRINT" {HOME} 
{YEL} {RVS}"CCSQSMIDS (ZS 
(K+0) ,MB,ME)QS"{OFF}"; 
IFG=2ANDK+0=>GSTHENPRIN 
T" {HOME} {RVS}{8}"QOSMIDS 
(ZS (K+0) ,MB,ME) QS" {OFF} 
Me 

Li 
IFG=2ANDK+O0<GSTHENPRINT 
"fHOME} {YEL} {RVS}"CCSQS 
MIDS (2S (K+0) ,MB,ME)QS" 
{OFF}"; 

IFG=LAND (AS="PS"ORAS="G 
B") THENGOSUB1L62@: IFG<>2 
THENS8@ 
GETAS: IFAS=""THENS9G 
IFG=2ANDAS="{DOWN}"ANDK 
+O=(V-GT) +1THENS9@ 
IFO=JJ-LANDAS="{DOWN}"T 
HENS9O 
IFO=GANDAS="{UP}"THEN89 
g 

IFAS="{DOWN} "THENGOSUBL 
410:RV=1:0=0+1:GOSUB141 
g@:GoToOs9a 
IFAS="({UP}"THENGOSUB 14 
10:RV=1:0=0-1:GOSUB1419 
:GOTOS89G 
IFAS="-"ANDOM> 1LANDK-48> 
=]1THENK=K-48:0=0:GOTO67 


a 
IFAS="—-"ANDOM=LANDK-96> 
=1THENK=K-96:0=0:GOT0O67 


a 

IFAS="4+"ANDOM> LANDK+48¢ 
VTHENK=K+48:0=0:GOTO0670 
IFAS="+"ANDOM=lLANDK+96< 
VTHENK=K+96:0=0:GOT067@6 
IFA<=JJ-1THENA#=A+1:GOTO 
716 
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QOc 


CD 


1008 


1019 


16208 


1938 


1646 


1050 
1068 


1976 
1080 


1996 
11908 


1114 
1120 


1139 
114@ 


11590 
1160 
1179 
1186 
1190 
1200 
1214 
122¢ 
123¢ 


1246 


1250 
1260 


127@ 


1286 


1298 
1300 
1310 


1320 
1336 


134¢ 
1350 
13608 
137¢@ 
1380 
1390 


1400 


IFAS="{RIGHT} "ANDO<JJ- 
24THENGOSUB132@:RV=1:0 
=0+24:GOSUB1L320:GoOT089 
G 
IFAS="{LEFT}"ANDO>23TH 
ENGOSUB1320:RV=1:0=0-2 
4:GOSUB 1320:GOT089¢ 
IFAS="7"THENGOSUB132@: 
RV=1:GOSUB1320:GoT089¢ 
IFAS=CHRS (222) THENGOSU 
Bl320:RV=1:GOSUB 1326: 
GOTOS894a 
IFAS="{HOME}"THENGOSUB 
1410:RV=1:0=0:GOSUB14 
10:GOTO89¢6 
IFAS="G"ANDG=2ANDK+0<¢= 
V-GT+1THEN184@ 
IFAS="G"ANDG=O0THENG=L: 
GOTO1616 
IFAS="PS"ANDG>@THEN68@ 
IFAS="G"ANDG=1LTHENG=2: 
O0=0:CCS="{6}":GOTO67¢ 
IFAS="F"ANDG=2THENGOSU 
B116¢ 
IFAS="PS"AND (G=GORG=2) 
THEN679 
IFAS="C"ANDG=2THEN1B83@ 
IFAS="Q"ANDG=@THENRETU 
RN 
GOTOSs9¢ 
GETAS: IFAS<>"Y"ANDAS<> 
"N"THENL149 
CLOSES5:CLOSEL5:END 
Z=0:GE=INT (GT/1@) +1 
B=9:FORGP=l1TOGE 
PRINT"{CLR}" 
PRINT" {YEL} {CLR} 
{2 DOWN)"TAB(WD-10) "FI 
LE(S) FOR PLACEMENT" 
PRINTTAB (WD-10)"{21 T} 
iy 


PRINTTAB (WD-15) "DIR LO 
cT{9 SPACES}FILE NAME" 
PRINTTAB(WD-15)"{8 T} 
{9 SPACES}{9 T}¢{3}" 
B=B+1:IFB=1L1ORSGS(2Z)=" 
"THENB=0:GOTO1L26@ 
IFSGS(Z)<>""THENPRINTT 
AB (WD-14) "{8}"GS+ZTAB ( 
WD-2) "{3}"QSMIDS(SGS$(Z 
),4,16)Q5 
Z=Z+1:IFZ<=GTTHEN123¢@ 
PRINT" {DOWN} €8}"TAB (WD 
-8)"GROUP TOTAL=";GT 
PRINT" {DOWN} {WHT} "TAB ( 
WD-10)"PRESS {RVS} E 
{OFF} END DISPLAY" 
PRINT" {DOWN} "TAB (WD-12 
)"PRESS RETURN TO CONT 
INUE{3}" 

GETR1S: IFR1S$<>CHRS (13) 
ANDRLS<>"E"THEN1296 
IFR1S=CHRS (13) ANDSGS (2 
)<>""THENNEXTGP 
Z2=@0:GP=@:GE*@:AS="PS": 
O=@:RETURN 
CR=0:CD=@:CP=0 

DEASSri) AMDRVSLANDO S24 
THENO= 

des CN ele 
ANDO>24THENO=24 

PEGG Tene ORY ANDO ST2 
ANDO>48THENO=48 

LEAS Sra e BNDRY EL ANOR<AS 
ANDO>72THENO=72 
IFAS=CHRS (222) ANDRV=1A 
NDO<24THENO=23 
IFAS=CHRS (222) ANDRV=1A 
NDO<48ANDO>23THENO=47 
IFAS=CHRS (222) ANDRV=1A 
NDO<72ANDO>47THENO=71 
IFAS=CHRS (222) ANDRV=l1A 
NDO<96ANDO>71LTHENO=95 
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XR 


BS 


GB 


141¢@ 
1420 
14390 
1448 


1450 
1460 


147@ 
1480 
1499 


1500 
1518 


1520 


} 1538 


1546 


155¢@ 
1560 


1576 


1586 
1590 
1600 
16190 
1620 
1630 


1646 


Looe 


1660 
1676 


168¢@ 


| 1696 


1700 
1710 
1726 
1730 
1746 


175@ 
176¢@ 


1776 


1788 


17968 


1869 


IFO>JJ-1THENO=JJ-1 
CR=@:CD=@:CP=9@ 
IFO<24THENCD=0:GOTO153 
G 
IFO>23ANDO<48THENCR=2@ 
-GOTO14990 
IFOM<>1THEN1489@ 
IFO>47ANDO<72ANDOM=1TH 
ENCR=49:GOTO148@ 
IFO>71ANDO<96ANDOM=l1TH 
ENCR=60 
IFO>=72THENCD=0~72:GOT 
0151¢@ 
IFO>=48THENCD=0-48:GOT 
0152¢ 
IFO>=25THENCD=0-24 
IFO>95ANDOM=l1THENO=95: 
RETURN 
IFOM>1ANDO>47THENO=47: 
RETURN 

PRINT" {HOME}";:IFCD=90T 
HEN1559@ 

FORCP=@TOCD-1: PRINT" 
{DOWN}"; :NEXTCP 
IFCR>G@THENPRINTTAB (CR) 
IFG=2ANDRV=lLANDK+0=>GS 
THENPRINT"{RVS}{8}"QSM 
IDS (ZS (K+0) ,MB,ME) QS" 
{OFF }":GOTO159¢@ 
IFRV=LTHENPRINT"{RVS}" 
CCSQSMIDS (ZS (K+0) ,MB,M 
E)OS"{OFF}";:GoTO1L59¢ 
PRINT" {YEL}"QSMIDS (ZS ( 
K+0) ,MB,ME)QS; 
IFG=LTHENRETURN 
RV=@:RETURN 
CCS="{3})":GS=K+0:GF=GS 
:RV=1:GOSUB1410 
GETDGS: IFDGS=""THEN1L62 
@ 
IFK+O=GSANDDGS="{UP}"T 
HEN162@ 
IFO=GANDDGS="{UP}"ANDG 
S<K+OTHEN167@ 
IFDGS="{UP}"THENRV=@:G 
OSUB1L410:RV=1:0=0-1:GF 
=K+0:GOSUB1410:GOT0162 
G 

GOTO1L69@ 

IFOM> LTHENK=K-48:0=47: 
AS="GB":GOSUB670:AS="" 
IFOM=LTHENK=K-96:0=95: 
AS="GB":GOSUB 67@:AS=" 


IFK+0=VANDDGS="{ DOWN)" 
THENL62@ 

[FDGS="(DOWN) "ANDO<JJ- 
LTHENL730 
L[FDGS="{DOWN}"ANDOM>1T 
HENK=K+48:0=@:AS="pPs": 
GOTO1G7¢@ 


IFDGS="{DOWN}"ANDOME1T ~ 


HENK=K+96:0=@0:AS="PS": 
GOTO1G7@ 

IFDGS="{DOWN} "THENO=0+ 
1:GF=K+0:GOSUB1419 
IFDGS="G"THEN178@ 
IFDGS<>"C"THEN1620 
PRINT"{CLR}F{4 DOWN} "TA 
B(WD-16)"{YEL}FILE GRO 
UP CANCELED...PLEASE W 
AIT mW 
FORCA=@0T0297:SGS (CA) =" 
"sNEXTCA: RV=0:G=0:GS=0 
tAS="Ps":ccS="{WHT}":G 
OTOL1GG 

PRINT" {CLR} {4 DOWN} "TA 
B(WD-14)"{YEL}MOVING F 
ILES UP...PLEASE WAIT" 
A=@:FORGA=GSTOGF:SGS (A 
) =Z5 (GA) :A=A+1:NEXTGA: 
GA=0:A=@ 
GT=GF-GS+1:FORMF=@0TOV- 


CB 


SB 


RG 


QB 


HF 


AE 


1814 


1826 


1830 


184¢ 


1859 


1860 


1870 


GF:2S8 (GS+MF) =ZS (GF +MF+ 
1) <NEXTMF 
FORFL=VTOV-(GT-1) STEP- 
1:2$(FL)="{3 SPACES} 
{QO} etek RARER HERR ECTS 
{14 SPACES]":NEXTFL 
FL=@:RV=0:0=0:CCS="{6} 
"sIFG=1THENG=2:GOT0670 
IP=GS:PRINT"{CLR} 

{4 DOWN} "TAB (WD-16)" 
{YEL}FILE GROUP CANCEL 
ED...PLEASE WAIT":GOTO 
1858 

PRINT"{CLR}{4 DOWN} "TA 
B(WD-14) "{YEL}INSERTIN 
G FILES...PLEASE WAIT" 
+ IP=K+0 
FORMF=@TOV-(IP+(GT-1) ) 
:Z$ (V-ME) =ZS (V-GT-MBE) : 
NEXTMF 
FORTF=@0TOGT-lL:ZS(IP+TF 
)=SGS (TF) :NEXTTF:FOREG 
=§T0297:S5G5 (EG) =""iNEX 
TEG 
AS="PS":cCcS="{WHT}":MF 
=@:TF=0:EG=0:GS=@:GF=0 
:GT=0:IP=0:G=0:GOTO1G8 
@ 


BEFORE TYPING... 
Before typing in programs, please 
_ refer to “How to Type In 


| COMPUTE!’s Gazette Programs,” 
elsewhere in this issue. 





Financial Planner 


Article on page 44. 
FH 18 REM COPYRIGHT 1989 COMPU 


XF 


FM 


MS 


MJ 


KP 


BS 


TE! 
ALL 
PRINTCHRS (147) ;CHRS (14); 


20 


PUBLICATIONS, INC. = 
RIGHTS RESERVED 


CHRS(8):POKES53281,0:POKE 
53280,11:POKE646,13 


30 


PRINTSPC(12)"COPYRIGHT 1 


989":PRINT SPC(6) "COMPUT 


E! 

PRINT SPC(10)"ALL RIGHTS 
RESERVED." 

SA=52224:1F PEEK(SA)=169 
AND PEEK(SA+206)=96 THE 


4 
50 


N 
60 H 


PUBLICATIONS, INC. 


CLR: GOTO250 
1=INT ((SA+13) /256) :L1=( 


SA+13)-H1*256 


74°48 


( 
BO 


2=INT ((SA+15@) /256) :L2= 
SA+150) -H2*256:CS=@ 


FOR AD=SATOSA+206:READML 


:CS=CS+ML: POKEAD,ML: NEXT 


99 
{ 


IF CS<>23175 THEN PRINT 


SPACE }CHRS (147) "ERROR I 


N ML DATA": END 


100 


11¢ 
120 


130 


140 


15¢ 


160 


POKE SA+5,L1:POKE SA+9, 


H1:POKE SA+133,L2:POKE 


{SPACE]SA+138,H2 

SYS SA:CLR 

DATA 169,76,133,124,169 
,13,133,125,169,192,133 
,126,96,141,255,3 

DATA 104,141,252,3,104, 
141,253,3,/72,li3,252;25 
72,201,217,208 

DATA 7,173,253,3,201,18 
3,240,11,173,255,3,261, 
58,176,3,76 

DATA 128,@,96,104,169,2 
20,72,186,142,254,3,165 
,l113,141,248,3 

DATA 165,114,141,249,3, 


FR 


AR 


AH 


EJ 


AR 


HE 


MA 


QJ 


RK 


KG 


JK 


BG 


MF 


170 


180 


196 


200 


218 


220 


239 


240 


250 


260 


270 


280 


290 


386 


3190 


3208 
330 
3498 
359@ 
364 
378 
380 
3990 


400 
416 


420 


430 


| 449 


45¢ 
460 


479 


460 


162,79,189,8,2,157,167, 
3,202,16,247 

DATA 56,165,36,229,122, 
168,162,23,201,81,176,7 
3,169,0,141,13 

DATA 3,153,0,2,136,177, 
122,153,9,2,136,16,248, 
169,080,133 

DATA 122,169,2,133,123, 
32,121,165,173,0,3,141, 
250,3,173,1 

DATA 3,141,251,3,169,15 
@,141,08,3,169,192,141,1 
rapoedpeLo 

DATA @,32,138,173,162,0 
,173,250,3,141,0,3,173, 
251,3,141 

DATA 1,3,173,13,3,138,1 
41,13,3,248,6,169,@0,133 
797,133 

DATA 102,173,248,3,133, 
113,173,249,3,133,114,1 
62,79,189,167,3 | 
DATA 157,0,2,202,16,247 
,169,0,133,13,174,254,3 
,154,96,6 
DNS="{DOWN}":LTS=" 
{RIGHT}":SPS=" ":DCS=DN 
S:HDS="{HOME} {DOWN} ":HR 
S=HDS+"{RVS}":HS=" 
{HOME}":RS="{RVS}" 
coS="{CLR} {DOWN} ":C2S=C 
pDS+pDCcS:US="{UP}":U3S=US 
+US+US:ERS=" "4+RS+"ERRO 
RY 

FOR I#l TO 6:DNS=DNS+DN 
S:LTS=LTS+LT$:SPS=SPS+t5 
PS: NEXT 
DNS=LEFTS(DNS,24) :LTS=L 
EFTS(LTS,4@0):SPS=LEFTS ( 
SPS,39) 

DIM C%(255),FCS(22) ,FC% 
(22) ,FV (22) ,V2(22) , ZF (2 
2) :PRINTCHRS (14) 

DIM CF(50),CP(5@) ,CW(50 
),A(58) ,W(50),P(58),Q(5 
Q),12(50) ,W2(50),TP(39) 
POKE 784,108:POKE785,12 
2:POKE786,@ 

DEF FN RS(LN)=USR(LN) +P 
OS(" {A}{U} ¢{T}{2 EPF< 
{G}<L'{£&}") 

T=FN RS (368) 

FOR K=#l TO 12:READ A:C% 
(A) =K:NEXT 

FOR K=49 TO 58:C%(K)=10 
sNEXT:C# (17) =5:C% (32) =7 
DATA 67,95,133,134,13,1 
45,147,20,46,48,89,78 
POKE 784,198: POKE785,12 
DEF FN R2(RR)=INT(AN/RR 
+,.5)*RR 

DEF FN RD(RR)=INT (RR*1¢ 
@+.5)/100 

PRINTCDS 
PRINTHDS;DCS"FINANCIAL 
{SPACE} PLANNER";DCS: PRI 
NT"PRESS # OF OPTION";D 


cs 

PRINT"1. COLLEGE PLANNI 
NG" 

PRINT"2. CAR BUY/LEASE" 
PRINT"3. COMPOUND INTER 
EST/SAVINGS" 

PRINT"4. LOAN PAYMENTS" 


PRINT"5. FIXED/ADJUSTAB 

LE RATE MORTGAGE" 
PRINT"6. HOW MUCH LIFE 
{SPACE}INSURANCE DO YOU 
NEED?" 

PRINT"7. SHOULD YOU REF 
INANCE YOUR MORTGAGE?" 


496 
50g 
31¢ 
520 


539 
549 


550 


568 
579 
980 
599 
608 


6198 


620 
630 
64¢ 


650 


6608 
670 
680 
690 
780 
718 
720 
730 


749 


758 
760 
778 
780 
790 
880 
810 
B20 
836 
84g 


850 


B60 


8798 
B80 


B9¢G 


900 
916 


PRINT"B. IRA 

{SHIFT-SPACE}PLANNING": 

AF=@ 

GETAS:IF AS="" THEN5@@ 

C=C%(ASC(AS)):IF C=1 TH 

EN GOSUB938:GOTO419 

IF C=2 THEN PRINTCHRS(1 

47) :END 

IF C<>19 THEN4@9 

PRINTDCS;RS"READING DAT 

A STATEMENTS ..."™ 

ON VAL{A$) GOTO200¢,3900 

0,4000,5000,6000,7000,8 

600,9000 

GOTO49@ 

REM-- 

FOR I=@ TO NR: PRINTFCS ( 

1); :GOSUBB820:NEXT:RETUR 

N 

REM PRINT SCREEN SUBROU 

TINE 

RR=1104: PX=0: PY=0:MY=22 
'FOR TY=22 TO 10 STEP-1 
IF PEEK(RR+TY*40) <>32 0 

R PEEK(RR+TY*4G+1) <>32 
{SPACE}THEN MY=TY:TY=10 

NEXT :GOSUB1940:GOSUB72@ 
‘IF T<@ THEN71@ 
PRINTHRS"PRINTING ...": 

OPEN7,4,7 

FOR I=@ TO MY:TS=DCS:H= 

-2 

FOR J=@ TO 39:A=PEEK(RR 
+1*404+J) AND 127:IF A=9 
6 THEN A=32:GOT0690 

IF A>@ AND A<27 THEN A= 
A+64:GOT0680 

IF A>64 AND A<91l THEN A 
=A+128 

IF A<>32 THEN H=J 

TS=TS+CHRS (A) :NEXT 

TS=LEFTS (TS,H+2):PRINT# 
7,TS:NEXT:CLOSE7 

GOSUB1950: RETURN 

OPEN7,4,7:CLOSE7:T=ST 

OPEN7,4:1F ST=T THEN CL 

OSE7:RETURN 
PRINTHDSSPS: PRINTUS"PRI 
NTER NOT READY, PRESS « 
TO CANCEL" 

GETAS:IF AS="<" THEN T= 
~1:CLOSE7:RETURN 

IF AS="" THEN T=T+1:IF 
{SPACE}T<9 THEN75@ 
T=@:PRINTHDS;SPS$:CLOSE7 
:GOTO720 

GOSUBLO7@:IF QA=2 THEN 
{SPACE }RETURN 

TS=T25 

PRINTHS;LEFTS (DNS,CY¥+2) 
*FCS (CY) ;TAB(LC-9) ; LEFT 
$(SPS,9) 

PRINTHS;LEFTS (DNS,CY+2) 
*FCS (CY) ;:1=CY 

IF FC%(1I1)=0 THEN PRINT: 
RETURN 

ON FC%(I) GOSUB85¢@,88¢@, 
890,919 

PRINT TAB(LC-LEN(TS$)-(1 
=FC%(I)));TS:RETURN 

IF SF=0 THEN TS=MIDS(ST 
RS(FV(I)),2,6)+"%":RETU 
RN 


TS=T2S+"S"sIF T2S="" TH 
EN TS="g93" 

RETURN 
TS="S"4+MIDS (STRS (INT (FV 
(I)+.5)),2):RETURN 
PTSe"NO":IF EV(I) THEN T 
S="VES oi 

RETURN 
TS=MIDS(STRS(INT(FV(I)) 
), 2) :RETURN 


QP 


QB 


920 


934 
940 


950 


960 
9790 


980 
999 


1600 


1610 


1626 


1830 
1040 
165¢ 


106¢ 
1g7@ 
1080 


1090 
11900 


1116 


112¢ 


113¢ 
1146 


1150 
11698 
1170 
1188 
1190 


1200 


1219 
1220 
12390 
1246 


1250 
12660 
1276 


1286 
1290 


1300 
1310 
1326 
1338 


1348 


REM CALCULATOR SUBROUTI 
NE 
PRINTHS;SPS$ 
T=@:A2S="";TS=HDS+SPS+" 
{UP}":PRINTTS:IF CCS<>" 
" THEN A2S=STRS(VAL(CCS 
)) 
PRINTTS:FOR T2=@0 TO T:N 
EXT:PRINT"?"A2S 
GETAS:IF AS<¢>"" THEN99G 
T=T+l:IF T>199 THEN T=@ 
:GOTO95@ 
GOTO96@ 
T=0:A=ASC(AS):IF A=13 T 
HEN CCS=A28:GOT09398 
IF(A>38 AND A<58 AND A 
4944) OR A=94 THEN A25 
=LEFTS(A2S+A$,38) :GOTO 
9590 
IF A=95 OR A=67 THEN P 
RINTHS;SPS:PRINTSPS: RE 
TURN 
IF A=2@ THEN IF LEN(A2 
S) THEN A2S=LEFTS(A25, 
LEN (A2S)-1) :GOTO95@ 
IF A=147 OR A=19 THEN 
{SPACE}A2S="":GOTO95@ 
IF A<>8l1 AND A<>69 AND 
A<>61 THEN96@ 
PRINT TS;HS;SPS:IF LEN 
(CC$)<21 THEN PRINTHS; 
cecs™ le 
PRINTVAL (CCS) : RETURN 
IF FC%(CY)<>@ THEN1190 
SF=@:GF=@:GOSUB1L42@:CY 
=sCY+1:IF CY>NR THEN CY 
=@ 
GOTO107@ 
IF SF=@ THEN T2S=MIDS§ ( 
STRS (FV(CY)),2):SF=1 
PRINTHS;LEFTS (DNS,CY+2 
)PRSesT=CY¥:GOSUBS20:0A 
=3 
GETAS:IF AS="" THEN112 
") 
A=ASC (AS) 
ON C8#(A) GOTO116¢0,1176 
,118¢0,1120,119¢8,1230,1 
27@,1298,1370,1400,133 
8,135@ 
GOTO1126 
GOSUB938:GOT01120 
QA=1:RETURN 
QA=2:GOSUBL77@0: RETURN 
IF A<>17 AND A<>13 THE 
N1230 
GOSUB880:GF=0:GOSUB142 
@:CY=CVY+1:SF=0:IF CY>N 
R THEN CY=@ 
IF FCS (CY) =6 THEN1L200 
RETURN 
GOSUBBAG 
GF=0:GOSUB1420:CY=CY-1 
*SF=0:IF CY<@ THEN CY= 
NR 
IF FC#(CY)=0 THEN1246 
RETURN 
IF A=147 OR (A=32 AND 
(SPACE }FC%(CY)<>3) THE 
N T2S=""sPV (CY) =0:RETU 
RN 
GOTO1320 
IF LEN(T2$)<2 THEN T2$ 
=""sPV (CY) =@:RETURN 
T2S=LEFTS (T2S,LEN (T28) 
-1):FV(CY)=VAL(T2S$):RE 
TURN 
REM 
FV(CY)=1L-FV(CY) :RETURN 
IF FC#(CY)=3 THEN FV(C 
Y)=1 
RETURN 
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OA 


BF 
RE 


13590 


1360 
1376 


1380 
1390 
14090 
1418 


1420 


1430 
1440 


145@ 


1460 


1474 


1480 


14990 
1500 
1519 
1520 
15390 
1540 
155@ 
1560 
1570 
158@ 


1590 


1690 


1610 
16290 


) 1638 


1648 
1650 


» 1660 


1670 
1689 
1698 


1760 


| 1718 


1720 


1730 
1740 


1758 
1760 


IF FC#(CY)=3 THEN FV(C 


IF FC%(CY)<>1l THEN RET 
URN 
FOR J=1 TO LEN(T2S):IF 
MIDS (T2S,J7,1)=CHRS (46 
) THEN J=7:NEXT:RETURN 
NEXT J 
IF GF=@ THEN GF=1:T2S= 
AS:FV (CY) =VAL(T28) :RET 
URN 
T25=LEFTS (T2S+AS,7):FV 
(CY) =VAL(T2S) : RETURN 
IF FC#(CY)=@ THEN RETU 
RN 
IF FCE# (CY) <>1 THEN1566 
TS=HDS+SPS+HDS+"WARNIN 
G - % RATE " 
IF FV(CY)>19@0 THEN PRI 
NTTS;"GREATER THAN 10@ 
":RETURN 
IF FV(CY)=@ THEN PRINT 
TS:"IS ZERO":RETURN 
IF V2(CY)>@ AND FV(CY) 
>V2(CY)*2+4 THEN PRINT 
TS; "VERY HIGH":RETURN 
IF V2(CY)>@ AND FV(CY) 
<.1 THEN PRINTTS"VERY 
{SPACE }LOW":RETURN 
GOTO154@ 
IF FC%(CY)<>4 THENL54@ 
TS=HDS+SPS+HDS+"WARNIN 
G - # IS{SHIFT-SPACE}" 
IF FV(CY)=@ THENPRINTT 
S: "ZERO": RETURN 
IF V2(CY)>@ AND FV(CY) 
>V2(CY) THENPRINTTS:"E 
XTREMELY LARGE": RETURN 
PRINTHDS;SPS:RETURN 
IF QT=ZT THEN RETURN 
QT=ZT:T=EN RS(ZT):1I=0 
ZF (I1)=@:READ FCS(I):IF 
FCS(I)="E" THEN NR=I- 
1: RETURN 
IF FCS(I)<>"IR" THEN16 
ag 
FCS(I)="INFLATION RATE 
"sPCR(I)=lL:PV(I)=4.4:V 
2(1)=5:GOTO1630 
V2(I)=-L:READ FC%(I):I 
F FC%(I) THEN READ FV( 
I) :V2(I)=FV(I) 
IF FC%$(I)=4 OR FCR(I)= 
1 THEN READ ZF(TI) 
IF FC%(I)=4 THEN READ 
{SPACE }V2(1) 
I=I1+1:GOTO157@ 
R4=12:GOT01660 
R4=7 
TS="S"+MIDS(STRS(INT(R 
R+.5)),2):PRINTLEFTS(S 
PS,R4-LEN(TS));T$;:RET 
URN 
PRINT"S"MIDS(STRS (INT ( 
RR+.5)),2) 7: RETURN 
ANS="S"4+MIDS(STRS (AN), 
2) 
IF AN=INT(AN) THEN ANS 
=ANS+",.@9":RETURN 
IF ABS (AN*1G-INT (AN*190 
+.5))<.0@1 THEN ANS=AN 
5+"9o" 
RETURN 
PRINT:PRINT"CHANGE ANY 
OR ALL VALUES, THEN M 
OVE" 
PRINT"CURSOR TO THE NU 
MBER YOU WANT" 
PRINT"CALCULATED AND P 
RESS Fl." 
CY=2:SF=@:RETURN 
AN=FN RD(AN) :GOSUB1689 
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CF 


MR 


RM 


PP 
XB 
CB 


GF 


CG 


SM 


GC 


BX 


XE 
AF 


1776 


1780 


1790 


189¢ 
1810 
1820 


1836 


1840 


1859 


1860 


L870 


1880 


» 1890 


1990 
19190 


1929 


1930 
1948 


1950 


2006 
2010 


2820 


2030 
2040 


2058 
2068 
2070 


2080 
2690 
2160 
2110 
2128 
2136 
2140 


2150 


2160 


2178 


2180 
2190 


: PRINTLEFTS (SPS, 11-LEN 
(ANS) ) ; ANS; : RETURN 
PRINTHS;LEFTS (DNS$,NR+4 
);?FOR RR=NR+4 TO 23:P 
RINTSPS:NEXT 

PRINT HS$;LEFTS(DNS,NR+ 
4):IF AF=1 THEN FV(CY) 
=.01 

FOR K=2 TO NR:IF ZF(K) 
=@ OR FV(K)>@0 THEN182 
) 

PRINTFCS(K)" = O";ERS: 
K=NR:QA=3 

PRINT" CHANGE VALUE TH 
EN Fl CALC, < MENU" 
NEXT:IF QA=3 THEN RETU 
RN 

PRINT H$;LEFTS (DNS,NR+ 
4) ;RS"CALCULATING..."U 
$:SF=0:RETURN 

PRINT: PRINT"ENTER ALL 
{SPACE}VALUES THEN PRE 
SS Fl TO CALC":CY=2:SF 
=8:RETURN 


PRINTHRSUS"PRESS F5 "; 


TS:PF=-1 
PRINTHRS"PRESS Fl ANOT 
HER, F3 PRINT, € MENU" 
:GF=@ 


GETAS:IF AS=""" THENL87 

g 

A=ASC(AS):IF A=67 THEN 
GOSUBL949:GOSUB939:GO 
SUB1958:GOTO1876¢ 

IF PF<@ AND A=135 THEN 
RA=4:GOTO192@ 

IF C%(A)>4 THEN187@ 
RA=C%(A)-lL:IF RA<1 OR 
{SPACE}RA>3 THEN187@ 
IF PF<@ THEN PRINTHS;S 
PS:PF=90 

PRINTHDS;SPS: RETURN 
FOR K=68 TO 39:TP(K)=PE 
EK (1064+K) :NEXT: RETURN 

FOR K=@ TO 39:POKE 106 
4+K,TP(K) sNEXT: RETURN 
REM-- 

DATA “COLLEGE PLANNING 
" ¢," WG 

DATA "TODAY'S ANNUAL C 

ost",2,11500 


DATA IR 

DATA "YEARS UNTIL COLL 
EGE",4,12,1,18 

DATA "#@ YEARS IN COLI* 
GE", 4,4). Ore NG 

DATA "PRESENT SAVINGS" 
72,5508 

DATA "AFTER TAX YIELD 
{SPACE}",1,7.35,1 

DATA E 
ZT=2000:LC=28:GOSUBL55 
4] 

PRINTCDS:SF=0 

GOSUB58@ 

GOSUB184@ 

GOSUB788@ 

ON QA GOTO40G,2150,213 
4) 

IF FV(4)=@ OR FV(5)=0 
{SPACE}THEN AN=FV(CY): 
PRINT"# YEARS @"+ERS:G 
0TO233¢ 
T2=0:T3=O0:T4=@:RI=1+(F 
V(8)-FV(3))/1@0:R3=l1+F 
V (3) /160:R8=1+FV(8)/10 
0 

FOR I=FV(4) TO FV(4)+F 
V(5)-1 
T2=T2+FV(2)/RITI 
T3=T3+R37FV(4)/(RIT (1- 
FV(4))) 


2200 
2219 


2220 


22390 
2248 


2250 
2260 


2276 


2280 


2290 
2300 


2310 
2320 
2330 


2340 
3000 


|. 36190 


3620 
3638 
3640 
3050 
3066 
3078 
3086 


3690 


3190 
3118 
3126 
3130 
3148 


3150 
3166 


3178 
3180 


3190 
3200 


3210 
3229 
3236 


3240 


32508 


3260 
32790 
3280 


3290 
3380 


eels RAN RE Ae 
NEXT I:T3=T3*FV(2)-FV( 
7) *R8BTEV(4) 
PRINT"TOTAL COLLEGE CO 
STS WILL BE S$"; INT (T4+ 
»5):PRINT 
IF FV(8)=@ THEN AN=T3/ 
FV (4) :GOT0225@ 
AN=T3*FV(8)/100/(R87FV 
(4)-1) 
IF AN>@ THEN2?28@ 
RR=FV(7)-T2:PRINT"SAVI 
NGS EXCEED NEEDS BY "; 
:GOSUB167@4 
PRINT". ":Q2=0:G0T02330 
PRINT"YOU NEED TO SAVE 
S"EN R2(25) "EVERY YEA 
R i 
PRINT"FOR THE NEXT":FV 
(4) "YEARS": AN=T2-FV (7) 
PRINT"OR SET ASIDE AN 
{SPACE}ADDITIONAL $";F 
N R2(5@@) 
PRINT"TODAY TO PAY FOR 
COLLEGE." 
AN*AN+FV(7):Q22FN R2(5 
ga) 
GOSUBLS6@:ON RA GOTO4@ 
08,2100 
GOSUB608:GOT02339 
REM-- 
DATA 
DATA 


"CAR BUY/LEASE",@ 

nm " @ 

DATA IR," ",@ 

DATA "--BUY--",@ 

DATA "PRICE OF CAR",2, 
12596 

DATA " FINANCING",3,1 

DATA "{2 SPACES}TRADE 
{SPACE}IN/DOWN PAYMENT 
",2,2000 

DATA "{2 SPACES} ANNUAL 
% RATE",1,12,1 

DATA "{2 SPACES}# OF M 

ONTHLY PAYMENTS",4,60, 
1,84,"--LEASE--",@ 

DATA " REFUNDABLE SECU 
RITY DEP",2,250 

DATA " INITIAL PAYMENT 
",2,378 

DATA " MONTHLY PAYMENT 
",2,189 

DATA " # OF PAYMENTS", 
4,60,0,84 

DATA " BUY OUT PRICE", 
2,620 

DATA E 
Z2T=3008:LC=31:GOSUBL55 
G 

PRINTCD$:SF=0 

GOSUB580 

GOSUB184@ 

PRINT: PRINT"YEARS TO M 

ONTHS: 3/36, 4/48, 5/6 
g" 

GOSUB78¢ 

ON QA GOTO4GG, 3230,321 
g 

IF FV(6)=0 THEN TC=FV( 
5) :GOTO3280 

TC=FV(7):I=FV(8)/100:R 
2=(1L+FV(2)/106) 7 (1/12) 
:P=PV(5)-FV(7) 
EP=(I*P/12)/(1-1/(1/12 
+1) 7 (12*FV(9)/12)) 


FOR J=l TO FV(9) 
TC=TC+EP/(R27J) :NEXT 
T2=FV(12):RI=(1+FV(2)/ 
140) 7 (1/12) :T2=T2+FV(1 
1) -FV(11)/RIfFV(14) 
FOR J=l1 TO FV(14) 
T2=T2+FV(13)/RITI:NEXT 





BJ 


QA 
JF 


HE 


KM 
PJ 
ED 
DX 
XP 
HK 
RQ 
GC 
AR 
FK 
HC 
MQ 
cP 


BG 
EM 
AH 
DA 
HM 
RG 
AK 


QB 


RF 


RG 


5B 


3316 


3320 


3330 


3340 


3350 
3368 
3370 
3386 
3396 
3468 
4000 
46190 
4620 
4030 
4040 
4850 
4060 


4070 
4080 


4090 
4160 
4116 
4126 
4130 


4140 


4150 


4160 
417¢@ 


4189 


4198 


4200 
4210 


4220 


; 42390 


4240 
4256 


4260 
4270 
4280 


4290 


4300 


:T2=T2+FV(15)/RITFV(14 


) 
PRINT"TOTAL COSTS FOR 
{SPACE]}BUYING: $";:IF 
{SPACE}FV(6)=@ THEN PR 
INTFV (5) :GOTO3330 
PRINT INT (EP*FV(9) +FV( 
7)+.5) 
PRINT SPC(15) "LEASING: 
S"*INT (EV(13) *FV(14)+ 
FV (12)+FV(15)+.5) 
PRINT"REAL COSTS, AFTE 
R INFLATION ADJUSTMENT 
nm 


PRINT SPC(16) "BUYING: 
({SPACE}S"; INT (TC+.5) 
PRINT SPC(15) "LEASING: 
S"s INT (T2+.5) 

IF FV(6)=0 THEN3390 
PRINT" MONTHLY PAYMENT 

S IF FINANCED: S$": INT ( 

EP+.5);HS 

GOSUB186@:0N RA GOTO4@ 

86,3176 

GOSUB600:GOT0339@ 
REM=-- 

DATA "COMPOUND INTERES 

T/SAVINGS",@," ",@ 

DATA "PRESENT VALUE", 2 
,2915 

DATA "MONTHLY ADDITION 
"2,35 

DATA "ANNUAL YIELD",1, 

6.29,9@ 

DATA "# OF YEARS",4,9, 

6,49 

DATA "FUTURE VALUE",2, 

10000 

DATA E 


2T=4000:LC225:GOSUBI55 


a 

PRINTCDS:SF=@:AF=L 
GOSUB580 

GOSUB1720 

GOSUB78@ 

ON QA GOTO400,4140,412 
a 
PV=FV(2):R=FV(3):N#12: 
RI=(1+FV(4)/106) 7 (1/12 
):IT=l-RI: Y=FV (5) :T=FV ( 
6) 
NY=¥*12:T2=PV*RI[TNY:T= 
T-T2:RN=RI[NY: IN=FV(4) 
/1206 

ON CY-1 GOTO4170,4190, 
4250,4360,4420 
T4=0:FOR K=@ TO Y*12-1 
<T4=T4+R*RITK:NEXT 
AN=(FV(6)-T4) /RN:AN=IN 
T (AN+.5) :GOTO444G 

IF RI=l THEN AN=(FV(6) 
=-PV) /NY:GOT042190 
T5=(FV(6)-PV*RN) * (RI-1 
)/(RN-1) :AN=T5 
ANS=MIDS (STRS (INT (AN*1 
@G6-INT (AN) *10@)) ,2) 

IF LEN(ANS$)=1 THEN ANS 
="@9"4+ANS 
ANS="S"4STRS (INT (AN)) + 
"J"+ANS 

AN=INT (AN+.5) :GOTO4476 
AN=1@0:DA24.95:G=0:A4=5 
00 

IF NY*R+PV<=0 THEN4450 
IF FV(6)<NY*R+PV THEN4 
460 
RI=(1L+AN/100) 7 (1/12):R 
N=RITNY:IF A4>16 THEN 
{SPACE }A4=INT (A4*.9) 
G2=PV*RN+R* (RN-1L) /(RI- 
L):IF INT(G2*A4+.5)=FV 
(6)*A4 THEN4350 

IF G2¢FV(6) THEN4330 


4310 


4320 
4330 


4349 
4350 


4368 
4370 


4380 
4396 
4480 
4410 
4420 
4430 
4440 
4450 
446¢ 


4476 
448@ 


4490 


4500 


4510 
4520 
5800 
5814 
5820 
5030 
5040 
5050 


5860 
5070 


5080 
5890 
5160 
5110 
5120 


5130 


51408 
5150 


5166 


| 5178 


51808 


5190 
5200 


5210 
5226 


9230 


AN=AN-DA:IF G=l THEN D 
A=DA/2 
G=-1:GOT0428¢@ 
AN=AN+DA:IF G=-1 THEN 
{SPACE }DA=DA/2 
G=1:GOT042890 
AN=FN R2(.@@81):ANS=STR 
S (AN) +"%":GOTO447¢ 
IF NY*R+PV<=0 THEN445¢ 
IF FV(6)<NY*R+PV THEN4 
460 
IF RI=l THEN AN=(FV(6) 
-PV) /R/12:GOTO4418 
Z=RI-L:AN=(FV(6) *Z+R) / 
(Z*PV+R) 
AN=LOG (AN) /LOG (RI) :AN= 
AN/12 
AN=FN R2(.1) :ANS=STRS { 
AN)+" YEARS":GOTO447@ 
IF RI=l THEN AN=PV+R*N 
¥:GOTO444@ 
AN=PV*RN+R* (RN-1) /(RI- 
1) 
AN=INT (AN+.5) sANS="S"+ 
STRS (AN) :GOTO4470 
AN=FV(CY) :ANS="$ VALUE 
@"+ERS:GOTO4470 
AN=FV (CY) :ANS="NEGATIV 
E RESULT"+ERS 
FV (CY) =AN:GOSUB8@0 
PRINTHS;LEFTS (DNS,NR+3 
) 
PRINTSPS:PRINTSPS: PRIN 
TSPS:PRINTSPS 
PRINTU3S" CALCULATED " 
FCS(CY):PRINT" IS :"AN 
5 


GOSUBL860:0N RA GOTO4G 
08,4090 
GOSUB608:GOT0451¢ 
REM-- 

DATA "LOAN PAYMENTS",@ 


rl no 

DATA "AMOUNT OF LOAN", 
2,21003 

DATA “INTEREST RATE",1 
,11.89;,@ 


DATA "# OF MONTHLY PAY 

MENTS",4,120,1,600 
DATA "MONTHLY PAYMENT" 
,2,308 

DATA E 
2T=5000:LC=38:GOSUB155 
@ 

PRINTCDS:SF=0:AF=1 
GOSUB58@ 

GOSUB1L72¢ 

GOSUB78@ 

ON QA GOTO40¢0,5139,511 
8 

P=FV(2):R=FV(5) :RI=(1+ 
FV (3) /166) [ (1/12) :1=1- 
RI:NY=FV (4) :N=12:RN=RI 
TNY 
T2=FV(3)/10@:13=12/N+l1 
IF N¥=@ AND CY<>4 THEN 
T=4:GOT0539@ 

IF FV(5)=@8 AND CY<>5 T 
HEN T=5:GOT0539¢ 

IF FV(2)=8 AND CY<>2 T 
HEN T=2:GOT0O539¢ 

IF P>R*NY AND CY=3 THE 
NAN=FV (CY) :ANS="NEGATI 
VE RESULT"+ERS:GOTO541 
8 

ON CY-1 GOT05200,523¢0, 
§326,5360 

IF I3=l1 THEN 
OTO522¢ 
AN=R*N*(1=1/I13[NY) /12 
AN=INT (AN+.5) :ANS="S"+ 
STRS (AN) :GOTO54106 
SF=@0:AN=10:DA=4.95:G=0 


AN=R*NY:G 


5240 
52590 


5266 
9270 


5280 
5290 


5386 
5319 


5326 


5336 


5348 
59358 
5360 
5378 
5386 
5396 
5400 
5416 
5420 
5430 


5446 


5450 
5460 


5470 
5480 


549¢ 
5500 


5510 


5526 


9530 


5540 


5550 


5560 


5576 


9580 
55908 


5600 
561¢ 


5620 


:IF R*NY=P THEN AN=@:G 
OT05314 
I2=AN/100:13=12/N+1 
G2=(12*P/N) /(1-1/13]NY 
):IF INT (G2*50+.5)=R*5 
@ THENS31@ 

IF G2<R THENS290 
AN=AN-DA: IF G=1 THEN D 
A=DA/2 

G=-1:GOT05240 
AN=AN+DA:IF G=-1 THEN 
{SPACE }DA=DA/2 
G=1:GOTO5246 

AN=FN R2(.0801) :ANS=STR 
$ (AN) +"%":GOTO5410 

IF 13=1 THEN AN=P/R:GO 
TO535¢ 

IF R<P*13-P THEN ANS=" 
MONTHLY PAYMENT TOO SM 
ALL"+ERS:AN#FV (CY) :GOT 
0541¢ 

AN=LOG (-1/(P*12/R/N-1) 
) /LOG (13) 

AN=INT (AN+.5) :ANS=STRS$ 
(AN) :GOTO5416 

IF I3=1 THEN AN=P/NY:G 
OTO5389 

AN=(I12*P/N) /(1-1/137NY 
) 

AN=FN RD (AN) :GOSUB168@ 
:GOTO5410 

AN=FV (CY) :ANS=FCS§ (T) 
ANS=ANS+" = G"+ERS§ 

FV (CY) =AN: GOSUB8G@@ 
PRINTHS$;LEFTS$ (DNS,NR+3 


) 
PRINTSPS:PRINTSP$: PRIN 
TSPS:PRINTSPS 
PRINTU3S" CALCULATED " 
FCS(CY):PRINT" IS :"AN 


3 

PRINT:TS="TO PRINT PAY 

MENT SCHEDULE" 

GOSUBL85@:0N RA GOTO4G 
0,5080,5470,5480 

GOSUB600:GOT0545@ 
PRINTCDS"ENTER DATE OF 
FIRST PAYMENT (€ CANC 

EL)":INPUT" MONTH (1-1 
2)"7M5 

IF MS="<" THEN5@80 
M=INT (VAL(MS)):IF M<1 
{SPACE}OR M>12 THENS548 
a 

INPUT" YEAR"; YRS: YR=IN 

T(VAL(YRS)):IF YR>10@ 
{SPACE}THEN YR=Y¥R-INT ( 
YR/100)*10@ 
GOSUB720:IF 
8a 
PRINT"PRINTING PAYMENT 
SCHEDULE..." 
OPEN4,4:CMD4 

AN=FV (2) :GOSUB176@: PRI 
NTDCS" BORROWED AT "FV 
(3) "8":AN=FV(5) 

PRINT: PRINTDCS" 

{3 SPACES}#{3 SPACES}D 
ATE{3 SPACES}PRINCIPAL 
{3 SPACES} INTEREST 

{2 SPACES}BALANCE DUE" 
P=FV (2) :A=FV(5):RI=FV ( 
3)/1200:IF FV(4)=1l THE 

N5696 

FOR K=1 TO FV(4) 

IF K<100 THEN PRINT" " 
-:IF K¢1@ THEN PRINT" 
{SPACE}"; 

PRINTK; 

TS=DCS+STRS (M)+"/"3 IF 
{SPACE} YR<10 THEN TS=T 

S+"9" 

TS=TS+MIDS (STRS(YR) ,2) 


T<@ THEN5@G 
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AF 


BG 


5639 


5649 
565¢ 
5660 


5678 


, 5688 


5690 
5700 


5718 


5720 


5738 
5740 
5750 
6000 
681¢ 
6020 
6030 
6640 


68590 
6060 


6076 
6080 


6090 
61008 
6118 
6120 
6130 
6140 
615¢ 
6160 
6170 
618¢ 
619¢ 
6200 


62190 


6220 
6230 
6240 


6256 


62680 


62793 
6280 


6290 


: PRINTLEFTS (SPS, 7=-LEN ( 
TS));TS; 
M=M+1l:IF M>12 THEN M=l 
:YR=YR+1:I1F YR>99 THEN 
YR=6 
IF K=FV(4) THEN NEXT:G 
OTO0569¢ 
T=P*RI:AN=A-T:GOSUB176 
G 
AN=T:GOSUB176@:PRINT" 
{SPACE}"; 
P=P-A+T:AN=P:GOSUB176@ 
:PRINT 
NEXT 
T=P*RI:AN=P:GOSUB1768@ 
AN=T:GOSUB1768:AN=6:GO 
SUB17686 
AN=FV(5):PRINT:PRINTDC 
$" REGULAR PAYMENTS:"; 
:GOSUB176@:PRINT 
AN=P+T:PRINTDCS" LAST 
{SPACE} PAYMENT: ";:GOSU 
B176¢ 
PRINT#4:CLOSE4 
PRINT"PRESS Fl, F3 TO 
{SPACE}GO BACK TO LOAN 
S, « MENU" 
GOSUB187@:0N RA GOTO4@ 
8,5080,5080 
REM--— 
DATA "FIXED RATE OR AD 
JUSTABLE RATE MORTGAGE 
ai ine "@ 
DATA "PRINCIPAL",2,860 
a0 
DATA "FIXED RATE MORTG 
AGE",@ 
DATA " ANNUAL % RATE", 
1,10.86,1 
DATA " POINTS",1,3,@ 


DATA " # OF YEARS",4,3 
0,1,408 
DATA "ADJUSTABLE RATE 


{SPACE }MORTGAGE", @ 
DATA " INITIAL INTERES 
T RATE",1,8.93,1 


DATA " POINTS",1,2, 

DATA " YEARLY CAP",1,2 
l 

f 

DATA " LIFETIME CAP",1 
nalr apt 

DATA " # OF YEARS",4,3 

g,1,40 

DATA ih i 4 

DATA IR 

DATA E 


ZT=6000:LC=38:GOSUB155 
G 
PRINTCDS:SF=@:GOSUB586 
GOSUB1846 

GOSUB786 

ON QA GOTO400,6210,619 
t 
N=12:12=FV(4)/100:1381 
2/N+1L:NY*FV(6)*12:PsEV 
(2) :Y=SFV(6):YY=FV(12) 
A2=(12*P/N) /(1-1/13[NY 


) 
T2=FV(8)/100:13=212/N+1 
*=NY=FV(12)*12 
AN=(12*P/N) /(1-1/13]NY 
)}:4A(8) =AN:W(@)=AN 
MX=FV(11)/100:D=FV(1@) 
/100:P(0)=P:0(@0)=P:12 ( 
8)2I2:W2(@8)=I12 

CF (@)=FV(5)/100*P:CP(@ 
)=FV (10) /100*P:CW(@)=Cc 
P(@) :NY=YY*12 
¥2=0:Y4=@0:RI=1L+FV(14)/ 
168 

FOR K=1 TO 5:GOSUB68190 
:NEXT 
RR=A2:PRINT"FIXED RATE 
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JB 


5Q 


MG 


QR 


FB 


KK 


SB 


RF 


DD 


Qs 
PE 


PQ 


CK 


GH 
5G 
HK 
MG 
HP 
RD 


Qs 
RF 


KE 


SQ 
RQ 
XM 


JA 
CE 


JJ 


6300 


6310 


6320 


6330 


6340 


6350 
6360 
6370 
6380 
6390 
6400 


6419 


6426 


6436 


6440 


6450 


6460 
64790 


6480 


6490 
6500 


6510 
6520 
6530 
6540 
6550 


6560 
657¢ 


6580 
6590 
6600 
6610 
6620 
6630 


6640 


PAYMENTS ARE 
{SHIFT-SPACE}";:GOSUBL 
670:PRINT" A MONTH." 
RR=AN: PRINT"ARM 
{SHIFT-SPACE} PAYMENTS 
{SPACE}START AT ";:GOS 
UB1670:PRINT". 

{2 SPACES}IF RATES" 
RR=A(2):PRINT"RISE .5% 

A YEAR, PAYMENTS BECO 
ME “;:GOSUB1670: PRINT 
RR=A(5):PRINT"IN 2 YEA 
RS, AND ";:GOSUB1676:P 
RINT" IN 5 YEARS." 
RR=W(2):PRINT"IN THE W 
ORST CASE, PAYMENTS AR 
E ";:GOSUB1670:PRINT 
RR=W(5):PRINT"IN 2 YEA 
RS, AND ";:GOSUB1676:P 
RINT" IN 5 YEARS." 
TS="FOR FURTHER ANALYS 
Is" 

GOSUB185@0:0N RA GOTO4@ 
@,6170,6370,6390 
GOSUB600:GOTO06350 

IF Y¥<6 THEN6416 
TY=Y-L:IF YY>Y THEN TY 
=¥Y-l 

GOSUB177@:FOR K=6 TO T 
¥+1:GOSUB6810:NEXT 
PRINTCD$;DCS"ADJUSTABL 
E RATE MORTGAGES ARE G 
REAT" 

PRINT"IF INTEREST RATE 
§ GO DOWN, AND TERRIBL 
EB" 

PRINT"WHEN RATES SKYRO 
CKET.{2 SPACES}ARMS AR 
E ALSO" 

PRINT"GOOD FOR PEOPLE 
{SPACE}WHO MOVE OFTEN. 
"W 


IFYY<>YTHENPRINT "COMPA 
RISONS INVALID BECAUSE 
LENGTHS{5 SPACES]DIFF 
ER. ":GOTO06576 
IF Y¥2>0 THEN6496 
PRINT"THE FIXED RATE M 
ORTGAGE IS SUPERIOR. T 
HE"; 
PRINT"ARM MAKES SENSE 
{SPACE}IF RATES GO DOW 
N.":GOT06576 
PRINT"IF INTEREST RATE 
S INCREASE .5% A YEAR" 
PRINT" (A REALISTIC AND 
PESSIMISTIC SCENARIO) 
i 


PRINT"AND YOU SELL WIT 
HIN"Y2"YEARS THE ARM": 
PRINT"IS BETTER.": 
IF Y¥4=@0 THEN657@ 
PRINT"{2 SPACES}IF RAT 
ES RISE QUICKLY (UP" 
PRINT"YEARLY CAP EVERY 
YEAR), YOU STILL" 
PRINT"COME OUT AHEAD I 
F SELL WITHIN"Y4 
PRINT"YEARS." 
PRINT:TS="TO PRINT COS 
T ANALYSIS TABLE" 
GOSUB1850:0N RA GOTO4®G 
0,6170,6590,6619 
GOSUB600:GOT0657@ 
IF A=95 THEN6179@ 
GOSUB720:IF T=-1 THENG 
176 
OPEN4,4,7:CMD4 
RR=A2:PRINTDCS"FIXED R 
ATE PAYMENTS ARE "™;:GO 
SUB167@0:PRINT 
IF FV(6)*FV(12) THEN66 
6a 


DK 


BP 


HA 


JG 


QE 
AE 


AJ 


EB 


CR 


KD 


CE 


DJ 


KK 


FQ 


6658 


6666 


6670 


668¢ 


6690 
6700 


67106 


6728 


6730 


6740 


PRINTDCS"WARNING! COST 
COMPARISON INVALID BE 
CAUSE OF TERM DIFFEREN 
CES" 
PRINT: PRINTDCS$"CUMULAT 
IVE REAL COSTS AND MON 
THLY PAYMENTS":PRINT 
PRINTDC$"YR{7 SPACES}F 
IXED{7 SPACES}RISING R 
ATES{7 SPACES}WORST CA 
Sp" a 
PRINTDCS"{9 SPACES}COS 
TS{7 SPACES}COSTS 
{2 SPACES}PAYMENT 
{5 SPACES}COSTS PAYMEN 
4s iis 
FOR K=@ TO TY 
PRINTDCS;MIDS(STRS(K), 
2); 
IF K<1@ THEN PRINT" 
{SHIFT-SPACE}"; 
RR=CF (K) :GOSUB164G:RR= 
CP(K):GOSUB1649:RR=A(K 
) :GOSUB165@ 
RR=CW (K) :GOSUB1649:RR= 
W(K):GOSUB165@:PRINT:N 
EXT:IF Y<>YY THEN678@ 
PRINT: PRINTDCS"OVER TH 
E LIFE OF THE"Y"YEAR M 


ORTGAGE THE REAL COSTS 


6750 


6760 


6778 


6780 


6790 
6800 
6810 
6820 
6830 
6840 
6856 
6860 
6876 
6880 
6890 
6900 


6910 


6920 
693@ 
6946 
6950 
7080 
7010 


7620 


7030 


ARE:" 

RR=CF (TY+1) :GOSUB1646: 
PRINTDCS$" FOR THE FIXE 
D RATE MORTGAGE" 

RR=CP (TY+1) :GOSUB164@: 
PRINTDCS" FOR THE ARM 
{SPACE}WITH RISING INT 
EREST RATES" 

RR=CW (TY+1) :GOSUB164@: 
PRINTDCS" FOR THE WORS 
T CASE ARM" 
PRINT#4:CLOSE4: PRINTCH 
R$(147)HRS"PRESS Fl, F 
3 ANOTHER, « MENU":GOS 
UB1870 

IF A=95 THEN4@@ 
GOTO6176 
T=K=-1:N4=NY-K*N 
H=N/RI[T:CE(K) =CF(T)+A 
2*H:CP(K)=CP(T)+A(T) *H 
> CW (K) =CW(T) +W(T) *H 

IF CF(K)>CP(K) THEN Y2 
=K 

IF CF(K)>CW(K) THEN Y4 
=K 
12=12(T)/12:W2=W2(T)/1 
2:P=P(T) :Q=Q(T) :A=A(T) 
:WeW (T) 

FOR J=l1 TO N 
P=P+P*I2-A:Q=0+0*W2-W 
NEXT J:Q(K)=Q:P(K)=P 
I2(K)=12(T)+.005:1F 12 
(K)>MX THEN 12(K)=MX 
W2(K)=W2(T)+D:IF W2(K) 
>MX THEN W2(K) =MX 

IF N4=@ THEN A(K)=0:W( 
K) =0:P(K)=@:Q(K)=@:GOT 
06950 

IF K>Y¥Y THEN CF(K)=CF(T 


) 
A(K)=(I12(K)*P(K)/N)/(1 
-1/(12(K) /N+1) 7N4) 
W(K)=(W2(K)*Q(K)/N)/(1 
-1/(W2(K) /N+1) TN4) 
RETURN 

REM-- 

DATA "LIFE INSURANCE N 
EEDS",@," ",9 

DATA "TOTAL HOUSEHOLD 
{SPACE}SALARY INCOME", 
2,43000 

DATA "YOUR SALARY, BEF 
ORE TAXES",2,25000 


MQ 
CD 


XS 


RM 


AE 


KG 


KX 


EQ 


AJ 
MP 


HD 
HX 


EF 
JQ 


CJ 


7040 
7050 
7069 
7870 
7080 
7896 
718¢ 
711@ 
7120 


7130 
7148 


7150 
71690 
T1768 
7180 
T7190 


7206 
7216 
7228 
7230 
7240 


7258 


7266 
7270 


7280 
7290 


7306 


7310 
7328 
7336 
7340 
7358 


7368 
7378 


7380 
7390 


7400 
7416 


7420 


DATA "ANNUAL SAVINGS", 
2,2000 

DATA "YOUR AGE",4,42,0 
,99 

DATA "# OF PEOPLE IN H 


OUSEHOLD",4,4,0,10 
DATA "AGE OF YOUNGEST 
{SPACE} PERSON",4,6,0,9 
9 

DATA " ",@ 

DATA "CASH, SAVINGS/CH 
ECKING ACCT.",2,1206 
DATA "STOCKS, MUTUAL F 
UNDS",2,500@ 

DATA "HARD ASSET INVES 
TMENTS",2,@ 

DATA " ",@,"HOME MORTG 
AGE", 2,50000 

DATA "CAR LOAN",2,5@0@ 

DATA "CONSUMER DEBT",2 
, 500 

DATA "COLLEGE FUND",2, 
65006 

DATA "CHARITABLE CONTR 
IBUTIONS",2,10606 

DATA "CURRENT INTEREST 
RATE",1,9.35,0 

DATA E 
2T=7000:LC=38:GOSUBL55 
O:IF Q2>@ THEN FV(16)= 
02 

PRINTCDS:SF=0 

GOSUB58@ 

GOSUB184@ 

GOSUB78@ 

ON QA GOTO400,7258,723 
G 

IF FV(2)<FV(3) THEN PR 
INTFCS(2)" LESS 
{SHIFT-SPACE} THAN": PRI 
NTFCS (3) ;ERS:GOTO7526 
FE=.6*FV(3):IF FE<6000 
THEN FE=6000 
CA=FV(9)+FV(10)*. 9+FV( 
11)*.8:CD=FV(13)+FV(14 
)+FV (15) +FV(16) 

IF FV(6)<2 THEN AN=FE- 

CA+CD:GOTO7490 
RE=FV(3)-FV(2)/(FV(6)+ 
.5)-FV(4) *FV(3) /FV(2): 
I=FV(18)+l:iIF 1<2.5 TH 
EN I=2.5 

R2=RE*2:IF FV(3)<4000 
{SPACEJOR FV(5)<25 OR 
{SPACE} FV(6)<2 OR FV(7 
)>18 THEN733@ 

T4=FV(3):IF 1T4>370008 T 
HEN T4=37000 
RE=RE-4000-(FV(6)>3) *1l 
400-T4/15 
IP=RE/I*100+R2:1F IP<@ 
THEN IP=@:GOTO7360 

IF FV(7)<1@ THEN IP=IP 
*(1+(10-FV(7))/33) 

IF FV(7)>12 AND FV(7)< 
21 THEN IP=IP*(1-(FV(7 
)-12)/33) 

T=FV(3)/(FV(2)+41) 

AN=IP+FE-CA*T+CD*SQR(T 
)+FV(17):1IF FV(6)>2AND 
IPC1THEN AN=AN+ (FV (6) 

-2)*2500 

IF AN>1@@00@@0 THEN AN=F 

N R2(500@):GOT0741@ 

IF AN>50000 THEN AN=EN 
R2 (2500) :GOTO07419 

AN=FN R2(100@) 

PRINTSPS:PRINTSPS: PRIN 

TU3S 

IF AN<1000 THEN PRINT" 

YOU MAY NOT NEED ANY L 

IFE INSURANCE.":GOTO75 

20 


EP 


ES 


EG 


EX 


BG 


PR 


SA 


AX 


PC 
RB 
AP 
BF 
RE 
CD 
DX 
AJ 
MF 
KF 
HM 
DD 
HE 


KX 
Hx 


AP 
KR 
QA 
QS 
QF 
GG 
Ox 
EJ 
RA 
CE 


BG 


JQ 
4H 
RM 
DE 


GA 


7430 


7448 


7458 


7468 


7476 


7480 


74908 


7580 


7510 
7520 
7530 
8000 
8010 
8020 
86390 
8040 
8050 
8060 
8870 
8080 
Ba908 


810¢ 
8119 


8120 
8130 
8140 
8150 
8160 
B17 
8180 
8196 
8200 
8219 


8220 


8230 
8240 
8250 
8260 


8270 


PRINT" YOU SHOULD HAVE 
{SPACE}ABOUT $S";STRS(A 
N) 
PRINT"IN LIFE INSURANC 
E COVERAGE.{2 SPACES}L 
OOK INTO" | 
TS="UNIVERSAL LIFE":A= 
FV (5) :T=AN/EV (2) 
IF T>10@ OR (T>8 AND AN 
»30) OR (T>6 AND A>35) 
THEN TS="TERM LIFE":G 
oTo7490 
T=FV(2)/FV(4):IF T<5 O 
R (T<6 AND A<35) THEN 
{SPACE}TS="TERM LIFE": 
GOTO749¢@ 
IF A¢<35 OR (A<55 AND F 
V(4)<1000) THEN TS="TE 
RM LIFE OR UNIVERSAL L 
IFE" 
IF FV(3)>75000 AND FV ( 
4)<FV(2)/58 AND CA<FV( 
3) THEN TS="WHOLE LIFE 
"W 


IF FV(4)<FV(2)/25 AND 
{SPACE}FV(5)>45 AND CA 
<FV(2) THEN TS="WHOLE 
{SPACE }LIFE" 

PRINT"A "TS" POLICY."H 


$ 

GOSUB186@:ON RA GOTO46 
8,720@ 
GOSUB600:GOT0752¢ 
REM-- 

DATA "REFINANCING A MO 
RTGAGE",@," ",@ 

DATA "CURRENT FINANCIN 


G",@ 

DATA " CURRENT BALANCE 
",2,65000 

DATA " ANNUAL % RATE", 
Lyi 2571 


DATA " # PAYMENTS DUE" 
,4,300,1,480 

DATA " ",0,"SUGGESTED 
{SPACE} REFINANCING",@ 
DATA " PRINCIPAL",2,65 
806 

DATA " ANNUAL % RATE", 
1,19.86,1 

DATA " # PAYMENTS",4,3 
66,1,606 

DATA " POINTS",1,3,9 
DATA " OTHER CLOSING C 
OsTS",2,2500 

DATA " PREPAYMENT PENA 


LTY",2,0 
DATA "TAX BRACKET",1,2 
8,6 


DATA “INTEREST AND POI 
NTS DEDUCTIBLE",3,1 
DATA IR 

DATA E 
ZT=8000:LC2#37:GOSUBL55 
Q 
PRINTCDS:SF=0:GOSUB580 
GOSUB184¢6 

GOSUB788@ 

ON OA GOTO4008,8220,38286 
i) 

P=FV (3) :Q=FV(8) :12=FV( 
4) /100:W2=FV(9) /190:D= 
1L-FV (15) *FV(14) /1¢9009 
NY=FV(5):N4=FV(10):PS= 
P:N=12 | 
PT=(FV(11)*D-FV(11))/N 
4 
CF=0:CW=FV(13)+FV(12)+ 
FV(11) 

TY=NY:IF TY<N4 THEN TY 
=N4 

A=(I12*P/N) /(1-1L/(I2/N+ 
1) TNY) :AV=A*D 


GM 


sG 


HK 
QS 


FG 
HB 
BK 


EG 


SX 
HQ 


HC 


DJ 


BJ 


MA 
Qc 


AA 


GE 


FA 


8280 


8298 


8300 
8318 


8320 


8330 


8340 


8350 


8360 
8376 


8380 


8390 


8400 


84190 
8420 


8430 


8440 


8450 


8460 
8470 
8480 
9900 
9610 
9020 


9030 


9040 


. 9950 


9060 
9076 
9080 
9090 
9140 


9119 
9120 


9139 
91490 
9150 
9168 
917¢ 


91890 


RI=(1+12) 7 (1/N) ¢R2= (1+ 
WATE NERS CREEV ERO) 
/106) 7] (1/N) 

W= (W2*O/N) /(1-1/(W2/N+ 
1) TN4) sWV=W*D+PT:AN=@ 
FOR K=l1 TO TY 
P=P*RI-A:Q=Q*R2-W: RK=R 
47K 
CF=CF+AV/RK:CW=CW+WV/R 
K 


TP=CF-(PS-P) /RK:TQ=CW- 
(PS-Q) /RK 

IF TO<TP AND AN=@ THEN 
AN=K 


IF K/12=INT(K/12) THEN 
T=K/12:P(T)=TP:Q(T)=T 
Q 

NEXT 


PRINT"THE PAYMENTS ON 
{SPACE}REFINANCING WIL 
L BE" 

IF ABS(A-W)<.5 THEN PR 
INT“ABOUT THE SAME AS 
{SPACE}THE OLD PAYMENT 
s.":GoTO08428 

IF A>W THEN RR=A-W:GOS 
UB1676:PRINT" LESS THA 
N THE OLD PAYMENTS." 
IF A<W THEN RR=W-A:GOS 
UB1L67@:PRINT" MORE THA 
N THE OLD PAYMENTS." 
IF ANDO THEN8448 
PRINT"REFINANCING WITH 
THESE TERMS COSTS YOU 
PRINT"MONEY, SO YOU PR 
OBABLY SHOULDN'T DO IT 
.":GOTO8478 
AN=AN/12:PRINT"YOU MUS 
T WAIT "FN R2(.1) "YEAR 
S FOR" 

PRINT"THE REFINANCING 
{SPACE}TO BE BETTER TH 
AN THE" . 
PRINT"EXISTING MORTGAG 


E."H& 
GOSUB1868:0ON RA GOTO4®@ 
08,8189 


GOSUB600:GOTO#8470 


REM-- 
DATA "IRA PLANNER",@," 
1] 
) 
r 
DATA "YOUR AGE",4,42,9 
65 
f 


DATA "CURRENT IRA 
{SHIFT-SPACE}BALANCE", 
2,7106 

DATA "THIS YEAR'S CONT 
RIBUTION",2, 2008 

DATA "ESTIMATED ANNUAL 
YIELD",1,9.23,@ 

DATA "CURRENT TAX BRAC 
KET" ,.1,28,0 

DATA "EARLY WITHDRAWAL 
PENALTY",1,10,@ 

DATA "% OF CONTRIBUTIO 
N DEDUCTIBLE",1,106,9 

DATA "RETIREMENT AGE", 
4,67,8,70 

DATA "TAX BRACKET WHEN 
YOU WITHDRAW",1,33,8 
DATA IR,E 
ZT=9080:LC=36:GOSUBL55 
@ 

PRINTCDS:SF=0@ 

GOSUB58@ 

GOSUB1L84@ 

GOSUB78@ 

ON QA GOTO400,9188,916 

Gg 

IF FV(9)<=FV(2) THEN P 

RINTFCS(2)" GREATER 
{SHIFT-SPACE}THAN "FCS 
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PE 9190 


QOD 9200 


JX 9210 


HG 9220 


9230 


9240 


9250 


9260 
9270 
9290 
92990 
9300 
9310 
9320 
93390 


9340 
9350 


9360 


SK 9376 


JM 93880 


QJ 9390 


AJ 9400 


EK 941@ 
AS 9420 


XD 9430 


(9) : PRINTERS: GOT09429 
Y=FV(9)-FV(2):RI=1+FV( 
5)* (100-FV(6))/l@gog 
R2=(100-FV(6))/19@:R3= 
(190-FV(10))/1@0:I=l4+F 
V(5)/100 
I2=FV(4)*I/Y-FV(4) :DR= 
FV (8) /10@:ND=FV (4) -FY ( 
4)*DR:DD=FV(4) *DR 
AN#=I2*R3+DD*R3-ND*R2*R 
IJY+ND:T3=FV(4)*R2:A2= 
RI[¥*T3 
PRINT"CONTRIBUTION WIL 
L BE WORTH S"INT (AN+.5 
) 

PRINT" (AFTER TAXES) WH 
EN YOU RETIRE," 
PRINT"COMPARED TO $"IN 
T(A2+.5) "OUTSIDE THE I 
RA.":T=(106-FV(7))/100 
PRINTRS"STILL CALCULAT 
ING" 
T6=FV(3)*I 
{25 SPACES 
T3=FV(4)*R2:AN=0 

FOR K=l1 TO Y 
T4=(FV(4)* I TK-FV(4))*R 
3+DD*R3-ND*R2*RI[TK+ND 
T6=T64+T4:I1F K+FV(2)>59 
THEN Tel 
TS8=T4-ND:TS=TS8*T:TS8=T9 
+ND 
T5=T3*RI[K: IF T8>T5 AN 
D AN=@ THEN AN=K:T7=T4 
NEXT 

PRINTUS"IF YOU CONTRIB 
UTE THIS AMOUNT EVERY" 
PRINT"YEAR YOU WILL HA 
VE{SHIFT-SPACE}S"INT(T 
6)"WHEN You" 
PRINT"RETIRE (AFTER PA 
YING TAXES).{2 SPACES} 
THIS WILL" 

PRINT"BE WORTH S"INT(T 
6/(1+FV(11)/108) JY) "AF 
TER INFLATION." 

IF AN=@ THEN PRINT"AN 
{SPACE}IRA 
{SHIFT-SPACE}MAY NOT B 
E RIGHT FOR YOU.":GOTO 
942¢ 

PRINT" IT WILL TAKE"AN" 
YEARS BEFORE EARLY" 
PRINT"WITHDRAWALS ARE 
{SPACE}PROFITABLE." 
GOSUB1860:0N RA GOTO4@ 
a,9136 
GOSUB680:GOT09429 


[eens 


The GEOS Column 
See instructions in article on page 
56 before typing in. 


Program 1: File Retriever 


1503:BF 
150B:F@ 
1513:25 
151B:890 
1523:E8 
152B:@2 
1533:58 
153B:1¢c 
1543:83 
154B: 04 
1553:74 
155B:56 
1563:6E 
156B:61 
1573:00 


cl 
10 
9C 
67 
67 
BF 
22 
AC 
D6 
B2 
26 
76 
FO 
6F 
9D 


0G 
0G 
C2 
47 
16 
C3 
0G 
AB 
06 
46 
72 
32 
20 
72 
Ms 


86 
08 
22 
40 
98 
81 
98 
a0 
a0 
6c 
65 
30 
2E 
aa 
ag 


83 
BO 
61 
31 
FO 
66 
a0 
DC 
04 
65 
76 
00 
26 
ag 
ag 


20 
16 
ag 
91 
a4 
90 
3F 
ae 
EF 
20 
65 
4h 
48 
ag 
aa 


4 
00 
3A 
18 
F@ 
BE 
08 
28 
vg 
65 
26 
68 
tit 
0 
o0 


CB 
08 
ae 
iby 
08 
20 
4c 
00 
a0 
69 
69 
2E 
46 
64 
a0 


90 COMPUTE!'s Gazette July 1989 


157B:4a¢0 
1583:0¢ 
158B:@6 
1593:900 
159B:00 
15A3:6F 
15AB:31 
15B3: 26 
15BB:72 
15C3:64 
15CB: 28 
15D3:20 
15D5: 20 
15E3:@6 
15EB: 00 
15F3:00 
15FB: 00 
16903:9C 
160B:5A 
1613:85 
161B:290 
1623:82 
162B:2C 
1633:7C 
163B:61 
1643:8D 
164B:8D 
1653:8D 
165B:8D 
1663:8D 
166B:85 
1673:85 
167B:85 
1683:88 
168B:@2 
1693:983 
169B: 903 
16A3:85 
16AB:C2 
16B3:07 
16BB:D¢0 
16C3:11 
16CB: 62 
16D3:6A 
16DB:67 
16E3:604 
16EB:0B 
16F3:A9 
16FB:72 
1783:BD 
17@B:A5 
1713:28 
171B:F@ 
1723:85 
172B:85 
1733:0D 
173B:02 


/1743:84 


174B:AB 
1753:71 
L75B:7A 
1763:280 
176B:D@ 
L/73=D0 
177B:12 
L7B3:0A 
178B:56 
1793:AA 
179B:7C 
LVA3:AA 
17AB:6¢6 
17B3:00 
L7BB:06 
17C3:88 
17CB:0B 
17D3:AD 
L7DB: 86 
L7E3:03 
17EB:@3 
17F3:81 
17VFB:AD 
1803:06 
18GB: 00 
1813:900 
181B:10 


4) 
a¢ 
ag 
6) 
08 
72 
2C 
20 
69 
26 
62 
6F 
66 
@ 
0@ 
a0 
ie) 
B5 
Cl 
82 
BD 
85 
C2 
4C 
BS 
1D 
1D 
1D 
1D 
1D 
7D 
71 
7A 
29 
Fd 
85 
85 
03 
6a 
26 
83 
AQ 
26 
4 
4c 
A5 
A9 
a0 
AD 
a6 
V7 
85 
13 
05 
OA 
85 
85 
FO 
82 
A9 
4c 
4A 
85 
a1 
85 
85 
C2 
BD 
DG 
BD 
A5 
Ba 
85 
85 
A9 
ag 
06 
4c 
Fa 
c9 
44 
68 


A5 | 


8G 
DO 


Ss) 
ae 
g@ 
08 
33 
20 
35 
38 
73 
69 
6B 
67 
65 
0G 
8G 
08 
26 
3c 
85 
20 
a9 


|. 56 


eal 
20 
6A 
BF 
BF 
BF 
BF 
BF 
85 
85 
85 
81 
83 
28 
5¢ 
85 
85 
A5 
a4 
@3 
20 
DB 
60 
a5 
OA 
AD 
85 
83 
F@ 
a2 
85 
85 
Cl 
te 
El 
TA 
AD 
ai 
AS 
OA 
56 
0B 


| 56 


oF 
77 
DG 
ual 
cg 
69 
DO 
74 
75 
OA 
00 
Bl 
AD 
86 
03 
76 
DG 
69 
7F 
a9 


ag 
09 
ag 
0¢ 
75 
31 
37 
3. 
20 
6E 
20 
65 
73 
ag 
eat) 
ag 
Bl 
85 
83 
sy! 
B5 
C2 
Ag 
BD 
84 
CZ 
C2 
C2 
C2 
C2 
76 
77 
TE 
FO 
Da 
B5 
14 
82 
7D 
a2 
cy 
Ag 
Al 
06 
AS 
AS 
20 
00 
73 
20 
08 
5 
a4 
OB 
A5 
85 
04 
DOG 
AC 
Ag 
79 
85 
C2 
85 
C2 
85 
18 
81 
18 
gD 
13 
a3 
C8 
Ag 
20 
FO 
cy 
82 
06 
4c 
AS 
81 
03 
ES 
99 


1 


80 
g@ 
00 
79 
35 
31 
20 
61 
67 
43 
6F 
8a 
GG 
ag 
aa 
06 
@2 
AY 
eal 
83 
60 
0) 
C1 
Ag 
AY 
AY 
Ag 
Ag 
A9 
AS 
Ag 
AD 
27 
aF 
70 
AY 


20 


20 
A, 
86 
4F 
Cz 
20 
70 
80 
E4 
Ba 
A6 
SF 
18 
AS 
AS 
A9 
tf: 
71 
AD 
15 
B2 
G1 
FQ 
83 
AS 
03 
60 
2 
69 
60 
69 
DG 
A8 
4c 
Bg 
81 
E4 
a3 
FF 
81 


AD | 


86 
re 
69 
AA 
cg 
40 


1823:AD 
182B:00 
1833:85 
183B:¢C2 
1843:A5 
184B:A9 
1853:02 
185B:Cc9 
1863:4C 
186B:81 
1873:D8 
1878:85 
1883:76 
L88B:A9 
1893:Da 
189B:E8 
18A3:090 
18AB:01 
18B3:39 
18BB: 00 
18C3:20 
18CB:61 
18D3:03 
18DB:A0 
18E3:20 
18EB:65 
18F3:Cl 
1SFRB:72 
1903:38 
198B:55 
1913:6cC 
191B:73 
1923:296 
192B:6C 
1933:290 
193B:64 
1943:C2 
194B: 08 
1953:F2 
195B:8D 
1963:985 
1965:07 
1973:BD 
197B:¢@6 
1983:00 
198B:A9 
1993:AD 
199B:08 
19A3:C2 
19AB:69 
19B3:FO 
19BB:85 
19C3:20 
19CB: 40 
19D3:1¢ 
19DB:85 
19E3:B9 
LIEB: 80 
19F3:85 
19FB:Cl 
1A@3:69 
lAG@B:7B 
1A13:04 
lA1B:4A 
1A23:85 
LAZB:C9 
1A33:10 
LA3B:D¢@ 
1A43:85 
LA4B:85 
1A53:c9 
1A5B:A9 
1A63:90 
1A6B:85 
LA73:1¢C 
lA7B:1F 
lA83:1E 
lABB:@A 
1A93:02 
lA9B: 31 
LAA3:A5 
lAAB:85 
1AB3:1C 
LABB:1F 
lAC3:1E 


8B 
FO 
G3 
AS 
7c 
52 
cg 
BC 
85 
85 
0B 
7E 
A6 
O1 
a3 
BD 
8a 
60 
Cl 
3F 
oF 
268 

G1 

13 

32 

72 

43 

69 

33 

54 

69 

2C¢ 

AE 

20 
32 
2E 
AG 
99 
AY 
84 

a3 

AD 
BE 

8D 
8D 
28 

B9 

4C 

20 

15 

25 

04 

4A 
85 

FO 

a5 

a0 

B5 

3B 
A9 

G2 
AA 
EB 

08 

BA 
00 

85 

OB 
04 

21 

83 

00 

aD 
21 

AY 

A9 

20 

AB 

DG 

18 

4 

21 

A9 
A 
20 


84 
a3 
AQ 
G2 
FG 
B5 
02 
DG 
06 
76 
Ag 
4c 
77 
85 
20 
00 
B5 
4c 
20 
Ol 
Cl 
A2 
FF 
2D 
65 
20 
a0 
67 
2C 
45 
63 
20 
cl 
52 
65 
a) 
00 
ol 
i) 
cg 
Ag 
89 
84 
43 
43 
85 
84 
Ad 
Al 
Ag 
Ad 
cé 
08 
BA 
63 
BB 
80 
O5 
AQ 
ag 
D@ 
BD 
BD 
A9 
20 
FG 
85 
A5 
20 
Ag 
DG 
85 
38 
AY 
a@ 
86 
60 
B8 
37 
69 
38 
Ag 
ea) 
a3 
60 


1ACB:58 @8 A5 84 GA GA AB 20 @9 #£=°1D073:B7 @B 12 67 2E BF GB 12 97 THEN BS=CHRS (8) 
1AD3:9E @9 AS @5 C9 G8 BG G4 2A 1D7B:9C 2E C7 @B 12 11 2E CF Fl FA 209 IF ASC(BS)=160 THEN220 
LADB:AA 4C 69 69 C9 10 BG G7 21 £°1083:0B @2 11 48 68 53 65 6C EE GD 2198 D$=D$+B$:GOTO19@ 
1AE3:38 E9 @8 AA 4C 08 909 c9 BS 1D8B:65 63 74 26 66 69 6C 65 F8 RK 228 FOR I=I TO 31:GET#2,B9: 
1AEB:18 B@ 07 38 E9 10 AA 4C ED 1D93:20 74 79 78 65 28 66 6F 19 NEXT 
LAF2:07 @9 C9 20 BO 67 38 E9 25 41D9B:72 20 @@ 18 50 52 47 1B GE AX 2380 IF DS=GFS THEN260 
LAFB:18 AA 4C 66 69 38 B9 2@ ED 1DA3:@@ 18 53 45 51 1B @0 18 es EC 240 NEXT E:IF NTS=NLS THEN2 
1BG3:AA C8 C8 C8 C8 C8. 20 16 26 ©1DAB:52 45 4C 1B 60 18 55 53 PF: 60 

186B:09 60 Bl 20 38 F9 @1 91 13 =+6§4.JDB3:52 1B 86 D7 OB 8G BB O81 B4 FX 250 TS=NTS:SS=NSS:GOTO14B 
1B13:20 68 AS O01 EO OG FG @5 Ad’ 1DBB:08 4A 64 D7 OB OG BO G1 E3 CR 260 IF DS=NLS THENPRINT" 
1B1B:@A CA 4C 18 69 49 FF 31 B2 £=+1DC3:08 52 @4 D7 GB @B BO Gl ED {DOWN} {RVS}FILE NOT FOU 
1B23:209 91 20 60 81 @B 14 10 49 «©«1DCB:@8 5A @4 D7 GB 68 G8 G1 F? ND{OFF)":GOT036@ 
1B2B:61 99 OB 10 246 74 69 GB A6 1DD3:68 62 G4 81 FF 96 81 82 E® Cp 279 PRINT" {DOWN}CONVERTING 
1B33:18 306 51 7F 12 11 34 DE BB I1DDB:FF BF E6 GB G6 86 86 10 AP {SPACE]}"GFS 

1B3B:0B @3 11 @8 @2 11 4A @6 49 1DE3:42 04 65 FE 82 FE 80 04 FS mg 286 DTS=TS:DSS=SS$:TS=HTS:SS$ 
1B43:11 1E 60 81 0B 16 16 61 BB IDEB:60 82 63 86 G4 BG BS 83 C3 =HS$:GOSUB37@ 

1B4B:09 @8 10 2074 69 6B 19 BA LDF3:88 FC Ol 8¢ 66 @3 8@ C6 AY MB 290 GET#2,MTS,MSS:IF MSS="" 
1B53:30 51 7F 83 11 08 @6 11 DB 1DFB:00 88 98 83 88 C3 3D B3 A? THEN MSS=CHRS(@) 
1B5B:1E 62 11 4A 66 18 52 65 52 1803:3C 83 86 C3 39 B3 66 83 D2 Ay 39g FoR I=@ TO 65:GET #2,BS 
1B63:74 72 69 65 76 65 1B 26 93 pev ee as a pe 89 is ef 3 te “NEXT 
1B6B:61 26 66 69 6C 65 26 @0 F6 2133 E 7E : SAncinih.: 
1B73:6F 6E 26 74 68 69 73 20 38 ##1E1B:60 @3 88 C6 31 8C 66 G3 5@ RGESTe Bee ee hare ce auumenes 
1B7B:64 69 73 6B 3F @@ G1 20 7F 1£23:80 FC 31 8C 3C G3 88 04 CB S=DT$:S$=DS$:GOSUB370 
1B83:7F 1B G0 24 G1 GB 18 1C 63 1E2B:00 82 G3 8G 64 GB 81 63 96 2, 35g GOR [ag TO 32*E+2:GET#2 
EBRD: SE og) 165 10528) Cod); OB) 50 1) 133106 Fe Le Te te ec BE 2A “BS:NEXT os 
1B93:18 38 F9 69 OB 18 46 29 22 E3B: ag eas : ee 
1B9B:GA GE @@ 18 46 69 6C 65 Fl 1E43:01 01 GG GG G@ GE aa ga 79 FQ 338 PRINT#2,MTS;MSS; :FORI=6 
1BA3:20 52 65 74 72 69 65 76 EC 1E4B:3C G0 G2 59 GC 8G 67 GC BB RO J OAGBI EL BY s NERD | 
1BAB:65 72 1B 20 77 61 73 20 DE 1E53:5E @C 80 82 GC 66 69 6c 33 GP 348 BONE Kile tse ABA Dad 
1BB3:77 72 69 74 74 65 6E 28 EC 1E58:65 @@ 72 65 74 72 69 65 94 GT; 
1BBB:66 6F 72 20 31 35 34 31 49 1E63:76 65 O@ GE 2A 6@ 6@ 18 7B KM 358 PRINT#2,IDS;:GOSUB38G:P 
1BC3:2C 26 31 35 37 31 2C @@ 68 1E6B:60 82 78 GC GG 1C 64 7D BE RINT? PRINTGES " CONVERTE 
1BCB:61 6E 64 20 31 35 38 31 Dc 1E73:0C @@ 2B 64 69 GE 66 6F 9C D° 
1BD3:20 64 72 69 76 65 73 20 68 1E7B:00 71 75 69 74 @@ GE 2A 43 ER 368 CLOSE2:CLOSE1LS:END 
1BDB:61 6£ 64 2F 6F 72 26 61 C4 1£83:14 60 5B @@ 82 93 BC GG AF KA 37@ US="U1":GOTO399 
1BE3:6E 20 52 45 55 2E 20 49 £4 1E8B:2E @4 9E OC 6G 38 64 67 C4 RR 388 US="U2" 
1BEB:74 20 77 6F 72 6B 73 26 92 £18693:65 6F 73 20 66 69 6C 65 ES KP 390 PRINT#15,U$;2;@0;ASC(TS+ 
1BF3:77 69 74 68 @9 47 45 4F 4c £=1E9B:73 @@ 6E 6F GE 2D 67 65 B2 "9") ;ASC(SS+"0") 
1BFPB:53 26 31 2E 33 26 61 6E 38 1EA3:6F 73 20 66 69 6C 65 73 1A AS 480 RETURN 
1C03:64 26 32 2E 30 26 61 6E D1 lEAB:09 60 @8 @@ OG 66 BA BG EF FM 4186 bar @,255,3,21,87,19,1 
1C@B:64 26 63 61 6E 20 72 65 3E 19,8 

sclntee 4a 8 S0 67 63 et 93 an PPOOTAM 2: Gootonert 
1023:20 61 6E 64 G6 GE GF GE DE FH 16 REM COPYRIGHT 1989 COMPU 
1C2B:2D 67 65 6F 73 20 66 69 C9 i erastetadetr asic cy LA a - 
1033:6C 65 73 20 66 72 6F 6D B4 ERVED = 
1C03B:20 74 68 65 20 74 72 61 1D XG 20 REM THIS IS THE UPDATED , 
1043:73 68 20 62 61 73 6B 65 8E {SPACE} GEOCONVERTER COMPUTE!’s Gazette 
ics3:0a Ql 11 48 9B 18 49 6E D8 SET ioedvereeerer = |p Supscriper Services 

) :Oa | ED AZETTE 
1C5B:73 65 72 74 26 6E 65 77 39 AC 30 POKE 53280,0:POKE 53281, Please help us serve you better. If you 
1C63:26 64 69 73 6B 20 69 GE 46 @:POKE 646,5:PRINTCHRS(1 |. Need to contact us for any of the reasons 
1C6B:74 6F 26 64 72 69 76 65 8F 42) ;CHRS (147) listed below, write to us at: 

1C73:2E 1B @8 81 OB 18 1C 89 FB PS 40 FORI=1TO10:PRINT"{DOWN}" COMPUTE!s Gazette 
1C7B:0A @B 10 2E 40 7F 64 11 79 :NEXT P.O, Box 10957 
Meier Three rer tine, otk > Eaters Ae eUriar corre | 7 Cebbees ath 

| : , IGHT 1989" or call the Toll Free number li : 
1093:74 68 69 73 20 66 69 6C SE sp 69 PRINTTAB(S)"GCH COMPUTE! | Chives yf edd eco en 
109B:65 3F 0@ 81 OB 19 1C AC EB Ea ra ayy ange of Address. Please allow us 6-8 

; _ PUBLICATIONS INC. weeks to effect the change; send your 
LCA339A OB 1@ 28 BP hi GE 00 4A SP 70 PRINTTAB(5) "JFK ALL RIGH current mailing label alon \ ith your new 
1CAB:45 6E 64 20 6F 66 20 73 79 TS RESERVED{HOME}" Bat Bae 
address. 

1CB3:65 61 72 63 68 2E 08 4E C5 Ep 86 PRINT"{DOWN}{RVS}{8}GEOC | 

1CBB:6F 28 66 69 6C 65 73 28 17 ONVERTER 1.1{0FF}{DOWN} Renewal. Should you wish to renew your 
10C3:18 52 65 74 72 69 65 76 @B {GRN}" Gazette subscription before we remind 
TeDSTOEREA OR @OLIBIAE Corec pe AE Oe NEUE "BLLE TO! CONVERT Oe ec ac charwe munnber or Gal 

: ) = FS Ce e u , Of 
1CDB:65 20 52 65 74 72 69 65 15 asi Tt the Toll Free number listed below. 
FCES- 76061 6C 1B UZ063 (62 GD Osh to RRND eT ONC HINGIE 16 asciption: Aone yeah (12 month) 
roretee oe a iy S Bs oe sf PA 1106 HDS="":FOR I=l TO 4:REA US. subscription to COMPUTE!'s Cazette 
1cra:l@ 55 GE 6b GE GF 77 GF AB DUR EHDETHDESCHBE CNEL H CLL eC er ems 
iopaess oS i oS ie oe sy ie 4 FK 120 FOR I=1T05:READIE:IDS=I staff page, Send us your name and ad- 
THUG Cieiad Ged calsd oe DS+CHRS(IE) :NEXT he or call the Toll Free number listed 
1p1B:@B GE 0 18 56 61 6c 69 5A GD 130 NLS="":TS=CHRS$(18):s$=c | Delow 
1D28:69 73 26 64 69 73 6B @@ 31 :":sOPEN 2,8;2,' t" cale Sues of COMPUTE!s Cazette, if you 
1D33:66 72? 6F 6D 30 =74 68 65 @B Jk 146 GOSUB370:GET #2,NTS,NSS$ experience late delivery, Or it you have 
1p3B:20 44 65 73 6B S4 6F 78 76 KB 15@ FOR E=6 TO 7 problems with your subscription, please 
1043-206 18 64 69 73 6B 1B 20 56 KQ 1680 DS=NLS:GET#2,B$:I=l:IFB call the Toll Free number listed below. 
1D4B:6D 65 6E 75 2E 60 81 @B 3A S=NLS$ THEN226 ; 
1D53:19 1c 89 @B @B 67 1c 4g EC AX 176 IF ASC(BS)<>13@ THEN22@ COMPUTE!’s Gazette 
1D5B:7F @B 1C 35 9F OB GB 44 72 HM 186 GET#2,HTS,HSS:I=3:IF HS | 4.800.797.6937 
1D63:35 AS @B OB 6C 35 AB GB 4E S="" THEN HSS=CHRS (@) 
1D6B:0B 94 35 Bl @B 12 @2 2E E4 FH 190 GET#2,BS:I=I+1:IF BS="" — . 
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Each month, COMPUTE!’s Gazette 
publishes programs for the Com- 
modore 128, 64, Plus/4, and 16. 

| Each program is clearly marked by 
title and version. Be sure to type in 
the correct version for your ma- 
chine. All 64 programs run on the 
128 in 64 mode. Be sure to read the 
instructions in the corresponding 
article, This can save time and elim- 
inate any questions which might 
arise after you begin typing. 

We frequently publish two 
programs designed to make typing 
easier: The Automatic Proofreader, 
and MLX, designed for entering 
machine language programs. 

When entering a BASIC pro- 
gram, be especially careful with 
DATA statements as they are ex- 


typed number in a DATA statement 
can cause your machine to “‘lock 
up” (you'll have no control over the 


computer). If this happens, the only | 


recourse is to turn your computer 


off then on, erasing what was in- 


memory. So be sure to save a pro- 
gram before you run it. If your com- 


error. 


When You Read: Press: See: 


{CLR} 
tome “cation 
{UP} [sutrT| | f cRsR | | Fy | 
{DOWN} ‘fcrsr | | fit fe | 
(LEFT) [ster] [—crsr—| 
{RIGHT} —CRSR—) ae 
(RVS) [era |[ 9 |] Gi | 
(OFF) crau|{ o | 
(BLK) fee |[ 1 | 

{WHT} CTRL || 2 | IE | 
ine ‘cm/s 

{CYN} cme. || 4 | lee | 


92 COMPUTE!'s Gazette July 1989 


| SHIFT | | CLR/HOME | i | 


Special Characters 

Most of the programs listed in each 
issue contain special control charac- 
ters. To facilitate typing in any pro- 


| grams from the Gazette, use the 


following listing conventions. 

The most common type of con- 
trol characters in our listings appear 
as words within braces: {DOWN} 
means to press the cursor down 
key; {5 SPACES} means to press 
the space bar five times. 

To indicate that a key should 
be shifted (hold down the SHIFT 


| key while pressing another key), 
| the character is underlined. For ex- 


ample, A means hold down the 
SHIFT key and press A. You may 
see strange characters on your 


| screen, but that’s to be expected. If 
tremely sensitive to errors, A mis- 


you find a number followed by an 
underlined key enclosed in braces 
(for example, {8 A}), type the key 
as many times as indicated (in our 
example, enter eight SHIFTed A’s). 

If a key is enclosed in special 
brackets, K 4, hold down the 
Commodore key (at the lower left 


| corner of the keyboard) and press 
puter crashes, you can always | 
reload the program and look for the | 
| of the alphabet enclosed in braces, 


the indicated character. 
Rarely, you'll see a single letter 


When You Read: 


Press: See: 
{PUR} CTRL (asa | 
{GRN} 
(BLU) 
{YEL} ee 
{Fl} Co] 
(F2) fsaer]( ] oe 
(3) Ts] & 
(Ft) (sar|[ 6 |] i 
(15) [a 
( Fo } Le! 
(F7} Hl 
(8) [sr]( |] 


How To Type In 
COMPUTE!’s Gazette Programs 


This can be entered on the Commo- 


dore 64 by pressing the CTRL key 


| while typing the letter in braces. For 


example, {A} means to press 


| CTRL-A. 


The Quote Mode 


Although you can move the cursor 


around the screen with the CRSR | 


keys, often a programmer will want 
to move the cursor under program 
control, This is seen in examples 
such as {LEFT}, and {HOME} in 
the program listings. The only way 
the computer can tell the difference 
between direct and programmed 
cursor control is the quote mode. 
Once you press the quote key, 


you're in quote mode. This mode | 
can be confusing if you mistype a | 
character and cursor left to change | 


it. You'll see a reverse video charac- 
ter (a graphics symbol for cursor 


left). In this case, you can use the | 
DELete key to back up and edit the | 
line. Type another quote and you're | 
out of quote mode. If things really 

get confusing, you can exit quote | 


mode simply by pressing RETURN. 


Then just cursor up to the mistyped | 
line and fix it. G 


When You Read: Press: 


. I 
1 


For Commodore 64 Only 
COMMODORE] |] 


E13 SEE |e 
K23 [COMMODORE] | 2 | Fa 
B39 [commopone] | 3 >| 
ae ‘COMMODORE | | 4 :| fry 
Bs 3 (coMMODORE] [5 | ES 
B63 ‘commopore|| 6 | i 
R73 lcommopore||7) [J 
EJ ‘COMMODORE || 8 | ce. 


= 
= | 


MONTENMERY GF 


C= 128= D 


COMPUTER PACKAGES 


fee 
I sans tye | SN SL 

5 
SPECIAL! 


#1 C/128-D DELUXE PKG, 
- C/128-D COMPUTER wiBUILT-IN 


DISK DAIVE | 

- COMMODORE 1902 RGB COLOR 
MONITOR. 

- COMMODORE COLOR PRINTER 


#2 C/128-D COMPLETE PKG. 


* C/128-D COMPUTER w/BUILT-IN 
DISK DRIVE 
* COMMODORE COLOR PRINTER 


* 12" MONITOR 
$469 
C/128-D WITH 1084 $659 


Or 


Cia Se Ney NE) 
NS 


COMPUTER PACKAGES 


#3 COMPLETE PACKAGE 


* COMMODORE C-64/C COMPUTER 
* COMMODORE 1541/C DISK DRIVE 
« COMMODORE COLOR PRINTER 

+ 12” MONITOR 

* GEOS SOFTWARE PROGRAM 


$349 
CofC | 





#4 COLOR PACKAGE 


* COMMODORE C-64/C COMPUTER 
* COMMODORE 1541-C DISK DRIVE 
* COMMODORE COLOR PRINTER 

* COLOR MONITOR 

* GEOS SOFTWARE PROGRAM 








NEW C-128D with 
Built-In Disk Drive 


$399 





#1764 EXPANSION MODUL we 14,5 
METEC & GRAPHIX JA. INTERFACE sethitesureceesus 25,06 
XETEC S. GRAPHIX SA. INTERFACE.............. $49.05 
XETEC SUPEAGRAPHIX GOLD....................... 79.95 
640 -B4C POW FR SUPPLY... "$233.85 
SO MODEN Sir ataC a AE ODE eA "$19.95 
WSPOMMUDEN cs vececcactcaness scsanucccas 6.95 
r MODORE 1350 MOUSE....ccsscssccssssescescrcnsees 76.05 
ODORE 1351 MOUSE............................ 4.05 
MAGIC VOICE MODULE......................0....... $9.95 
XE CLT. KERNEL MB 
vite een for 128, 1260............ $60.05 
HAR OR DRIV SF 
imide I ePbRidLs Ep besos ea Eevdadnd Richi diaddepd ne 574g 
ie : 6700 
XETEC asi HARD RIVE FOR: 
Cb412 11 ER Se eA ae add ed PLE $1140 
commodore 
(1571 219% 


Sec. 1581 $4 7995 
‘eal C= 1541 $45995 


MONITORS 


COMMODORE 1084.....se092/9.95 
COMMODORE 1802 
COLOR MONITOR. sssssseesneeeeg 189,95 


AMIGA 500..°529 
AMIGA 500 _-—, 


RGB COLOR PACKAGE (gam 
i] 
ne bi SOND ace AGE Ls | 
9.5" Dis -Mouse-RGB tee 
Color Monitor + Free Soft- fe 
ly 











ware 
$729 : 

AMIGA 500 With 1084. .cssssescsseson $799 

AEE ao DTV eens S979 


AMIGA 2500 
SMB RAM - Built-in 3.5" Disk 
Dive +, AoMeHad owe $3199 
Basic + System Software 
AMIGA 1010 DISK DRIVE....... 189.%* 
A-1680 MODEM sescssesscssssessssseese® QQ, 2° 
ALL OTHER AMIGA 
PERIPHERALS & _ 
ACCESSORIES IN ST OCK! 





commodore 


COLT PACKAGE 


TTT 
COMMODORE Ci COLT Comp Computer « 640K 
477-7. 16MHz «2 Floppy Disk Drives « 12" 


High Reso! don Mong Monir All Hook-u 
Cables & Adapters - MS DOS & GW Bas 


$889 


SANYO PR-3000A 
Daisy Whee! Letter Quality Printer 


SPECIAL 
nw PURCHAS 
\ 0 


WE CAN RECONFIGURE 
ANY OF OUR COMPUTER 
PACKAGES TO YOUR 
SPECIFICATIONS. CALL 
FOR INFORMATION. 





Monitor 
Induded 





COMMODORE COLT 
wil084 MONITOR 





iow vw to tt) a 


AMIGA 
AMIGA 2000 


A-2000 Computer w/Keyboard «1MB Exp, to 9MB 


Bualt-in 3.5° Disk Drive 
$1359 


| : AMIGA 
— 2000 
a RGB 
SOME COLOR 


—$<$—_—_— PACKAGE 


A-2000 Computer w/Keyboard +» 3.5° Disk Drive 
Mousa « AGE Color Morior «= Free Mouse & 


Soltware $4 559 


AMIGA 2000 wii064 | 
MONITOR *1629 








AMIGA 2000 HD 


1MB RAM + Buft-in 3.5° 
Here Drive: 44MB H.D. 


eyboard - Mouse “. 999 


System Software - Amiga Basic 





NT 


cometione = 





IBM XT COMPATIBLE PKG 
512K RAM + 360K Floppy Drive « 12° 
Moritcr -Serial 4 Parallel Ports «Keyboard 
Ber of 10 Ciskoties «IS DOS & GW Basic 


*499 


COMM 
PRI PRS 


= 
$219 


MPS-1000 PRINTER °169 


MPS-1250 


PRINTERS 
cupsener MAD ee 
‘1629 SSS 


HP Deshjet......$689 & 





R050. LO-850...........$529 
FK-1050.. 6489 Lega fe 
LO-500.........$415 LX-800 189 
LO-2550.......$919 LO-950..._......§580 
Panasonic 
108 eccossu. $158 1033... 
1885... srasaerasen 0 ee: 
1180... on GBS 2k. passions $5 
1191... 2 a ciaaattl ies Seas acc 
4450 Laser... ivurenessteswecesmeseesececnn i Lola! 
0h | 7 7 Re NEL PE $160.95 
NX TOQIC Fait csccscscscccsssssen0 24,05 
NX-1 O00 .cscrcossscssostcseeccssnccereserh 100,05 
NX-1000 PeaibOW ooossccrecseeeroocon- 6218.05 
BEBO ceccarerseseeeerererersneeeeecees habia OOo 
OK IDATA 
COOK IDATA VB. ssssiscccsscscscrssoancaene $210.05 
|| ce wacibacl $10.5 
PI200 cocscccse NEC fei $0.05 
fh A 
MVR: cos aatiscraviaadiiadinaushudieeke art Rt 
MSFT SE oeesecseseccmeserccoecomeeck $329.05 
Msp 4Qonmsenvinrsnnnsrn $229 % 
MSP. BO a siemens ir 
Tee lee piveseeeeeseee «Ot, OS 
TRIBUTE 224...., £550.05 


OFFICIAL 






COMPUTER PRODUCT 


: . . iy oF r 
‘a 4 
i 4 
oa 7 if i 
aL ee "9 Fee Ae rr 
ee Pa - 


¥2 WG Hy : | Fier We 
We “ise om hte i )Order: ~ adhe : 


‘iy 7, A 
; Pe Ne 7 “ Visit yOurfétailer or call 1-800-245- 4305, ee 
Coming soon: «gi ys aay es We <5 i iit Ke ~ - Torec@iVe"SS!'s complete product catalog, = lie 


. - era , foie ease Ser G.eiv00.to: SSI, 1046 N. Rengstorfl 
B C-64/128 WF ian , aie ~_FvenesMottain View, CA 94045, 


oe Pa 






Look for POOL OF RADIANCE, an AD&D* 
Fantasy Kole-Playing Epic set in the 
FORGOTTEN REALMS” game world. 


Available now for C-64/128 and IBM. 
Coming in 1989; ATARI ST, AMIGA, 
APPLE II GS and APPLE Il. 





ADVANCED DUNGEONS & DRAGONS, ADAD, FORGOTTEN 
REALMS, DRAQONLANCE and the TSR logo are trademarks owned 
by and used under Ikense from TSH, Inc. 01984 TSH, Inc, 

O1986 Strategic Slmulations, Inc. All rights reserved, 


